Ypatybė OpenArgs

Taikoma

Objektas Form

Objektas Report

Nustato eilutės reiškinį, nurodytą OpenForm metodo, kuris atidarė formą, argumento OpenArgs. Skaityti/rašyti Variant.

reiškinys.OpenArgs

reiškinys Būtina. Reiškinys, kuris pateikia vieną iš sąrašo „Taikoma“ objektų.

Pastabos

Ši ypatybė prieinama tik naudojant makrokomandą arba „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 norimą argumento OpenArgs eilutės reiškinį. Tuomet ypatybės OpenArgs parametrą galėsite naudoti formos kode, pvz., Atidaryti įvykio procedūra. Taip pat ypatybės parametrą galite peržiūrėti makrokomandoje, pvz., makrokomandoje Open, ar reiškinyje, pvz., tokiame, kuris nustato ypatybę ControlSource valdikliui formoje.

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
Tobulinkite savo „Office“ į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ų.

×