Taikoma
Objektas Form |
Objektas Report |
Nustato eilutės išraiška, nurodytą openForm metodo, kuris atidarė formą, argumentu OpenArgs. Skaitoma / rašoma duomenų tipo Variant reikšmė.
reiškinys.OpenArgs
reiškinys Būtina. Reiškinys, kuris pateikia vieną iš sąrašo „Taikoma“ objektų.
Pastabos
Ši ypatybė galima tik naudojant makrokomanda arba naudojant "Visual Basic for Applications" (VBA) kodą su objekto DoCmd metodu OpenForm. Šis ypatybės parametras yra tik skaitomas visuose rodiniuose.
Norėdami naudoti ypatybę OpenArgs, atidarykite formą naudodami objekto DoCmd metodą OpenForm ir nustatykite argumentą OpenArgs kaip pageidaujamą eilutės reiškinį. Ypatybės OpenArgs parametrą galima naudoti formos kode, pvz., lauke Atidaryti įvykio procedūra. Taip pat galite nurodyti ypatybės parametrą makrokomandoje, pvz., makrokomandą Atidaryti, arba išraišką, pvz., išraišką, kuri nustato formos valdiklis ypatybę ControlSource .
Pavyzdžiui, tarkime, kad atidarote formą, kuri yra tęstinės formos klientų sąrašas. Jei norite, kad įvesties vieta persikeltų į konkretų kliento įrašą atidarius formą, galite ypatybę OpenArgs nustatyti kaip kliento vardą, o tada naudoti veiksmą FindRecord makrokomandoje Open, kad įvesties vietą perkeltumėte ant kliento nurodytu vardu įrašo.
Pavyzdys
Toliau pateiktame pavyzdyje ypatybė OpenArgs naudojama darbuotojų formoje atidaryti konkretaus darbuotojo įrašą ir parodoma, kaip metodas OpenForm nustato ypatybę OpenArgs. Šią procedūrą galite vykdyti, kai to reikia, pvz., kai įvyksta pasirinktinio dialogo lango, naudojamo naujai informacijai apie darbuotoją įvesti, įvykis AfterUpdate.
Sub OpenToCallahan()
DoCmd.OpenForm "Employees", acNormal, , , _ acReadOnly, , "Callahan" End Sub Sub Form_Open(Cancel As Integer) Dim strEmployeeName As String ' If OpenArgs property contains employee name, find ' corresponding employee record and display it on ' form. For example,if the OpenArgs property ' contains "Callahan", move to first "Callahan" ' record. strEmployeeName = Forms!Employees.OpenArgs If Len(strEmployeeName) > 0 Then DoCmd.GoToControl "LastName" DoCmd.FindRecord strEmployeeName, , True, , _ True, , True End If End Sub
Kitame pavyzdyje metodas FindFirst naudojamas rasti darbuotojus, nurodytus ypatybėje OpenArgs.
Private Sub Form_Open(Cancel As Integer)
If Not IsNull(Me.OpenArgs) Then Dim strEmployeeName As String strEmployeeName = Me.OpenArgs Dim RS As DAO.Recordset Set RS = Me.RecordsetClone RS.FindFirst "LastName = '" & _ strEmployeeName & "'" If Not RS.NoMatch Then Me.Bookmark = RS.Bookmark End If End If End Sub