Ypatybė OpenArgs

Taikoma

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