Ypatybė Atidaryti argumentus (OpenArgs)

Svarbu :  Šis straipsnis išverstas naudojant mašininį vertimą, žr. atsakomybės atsisakymą. Su šio straipsnio versija anglų kalba galite susipažinti čia .

Taikoma

Objektui Form

Objektui Report

Nustato eilutės išraiška pagal argumento OpenArgsAtidaryti_formą metodo atidaryti formą. Skaityti/rašyti Variant.

reiškinys. OpenArgs

išraiška Būtina. Išraiška, kuri grąžina vieną iš sąraše Taikoma esančių objektų.

Pastabos

Ši ypatybė pasiekiama tik naudojant makrokomanda arba naudodami Visual Basic for Applications (VBA) kodas su Atidaryti_formą objekto DoCmd metodą. Šis parametras yra tik skaitomas visuose rodiniuose.

Naudoti ypatybę OpenArgs , atidarykite formą naudodami objekto DoCmd metodą Atidaryti_formą ir nustatykite norimą eilutės išraiška OpenArgs argumento. OpenArgs ypatybės parametras tada galima kode formos, pavyzdžiui, atidaryti įvykio procedūra. Taip pat galite nurodyti ypatybės parametras makrokomandos, pvz., makrokomandą arba išraišką, pvz., išraiška, nustatanti ControlSource ypatybę valdiklis formoje.

Pavyzdžiui, Tarkime, kad atidarote formą yra klientų sąraše nepertraukiama forma. Jei norite įvesties vieta perkelti į konkretų kliento įrašą atidarius, galite OpenArgs ypatybę kaip kliento vardą, ir jau atidaryti makrokomandą naudoti Rastiįrašą pereiti į įrašo kliento nurodytu pavadinimu.

Pavyzdys

Toliau pateiktame pavyzdyje naudoja ypatybę OpenArgs , Norėdami atidaryti formą darbuotojų konkretaus darbuotojo įrašą ir parodo, kaip Atidaryti_formą metodas nustato ypatybę OpenArgs . Galite paleisti šią procedūrą, atitinkamai, pvz., kai ypatybę įvykio atsiranda dėl Pasirinktinis dialogo langas, naudojamas įvesti naują darbuotojo informacijos.

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 FindFirst metodo raskite darbuotojas, pavadintą OpenArgs ypatybės.

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

Pastaba : Mašininio vertimo atsakomybės atsisakymas: Šis straipsnis išverstas naudojant kompiuterinę sistemą be žmogaus įsikišimo. „Microsoft“ pateikia šiuos mašininius vertimus norėdama padėti anglų kalbos nesuprantantiems vartotojams perskaityti turinį apie „Microsoft“ produktus, paslaugas ir technologijas. Šis straipsnis išverstas mašininio vertimo būdu, todėl jame gali būti žodyno, sintaksės ar gramatikos klaidų.

Tobulinkite savo įgūdžius
Ieškoti mokymo
Pirmiausia gaukite naujų funkcijų
Prisijunkite prie „Office Insider“ dalyvių

Ar ši informacija buvo naudinga?

Dėkojame už jūsų atsiliepimus!

Dėkojame už jūsų atsiliepimą! Panašu, kad gali būti naudinga jus sujungti su vienu iš mūsų „Office“ palaikymo agentų.

×