Argument OpenArgs (Ava argumendid)

Rakenduskoht

Objekt Form (Vorm)

Objekt Report (Aruanne)

Saate määratleda stringavaldis, mida kasutab vormi avava meetodi OpenForm (Ava vorm) argument OpenArgs (Ava argumendid). Lugemis-/kirjutamisõigusega objekt Variant.

avaldis.OpenArgs

avaldis on kohustuslik. Avaldis tagastab loendi Rakenduskoht ühe objekti.

Kommentaarid

See atribuut on saadaval ainult kasutades makro või Visual Basic for Applications (VBA) koodi koos objekti DoCmd meetodiga OpenForm (Ava vorm). Selle atribuudi säte on kõigis vaadetes kirjutuskaitstud.

Atribuudi OpenArgs (Ava argumendid) kasutamiseks avage vorm objekti DoCmd meetodi OpenForm abil ja seadke argumendi OpenArgs (Ava argumendid) väärtuseks soovitud stringiavaldis. Atribuudi OpenArgs (Ava argumendid) sätet saab seejärel kasutada vormi koodis, näiteks sündmuseprotseduur Open (Avamine). Atribuudi sättele saate viidata ka makros (nt avamismakros) või avaldises (nt avaldises, mis seab vormi juhtelement atribuudi ControlSource (Juhtelemendi allikas) väärtuse).

Näiteks oletame, et avate klientide loendi, mis on pidevvorm. Kui soovite, et vormi avamisel seataks fookus kindlale kliendile, saate seada atribuudi OpenArgs (Ava argumendid) väärtuseks vastava kliendi nime ja seejärel kasutada määratletud nimega kliendi kirje fookusesse seadmiseks avamismakro toimingut FindRecord (Otsi kirje).

Näited

Järgnevas näites kasutatakse atribuuti OpenArgs (Ava argumendid) vormi Töötajad avamiseks kindla töötaja kohalt ja selgitatakse, kuidas meetod OpenForm (Ava vorm) seab atribuudi OpenArgs (Ava argumendid). Selle protseduuri saab käivitada sobival ajal,  näiteks töötaja kohta uue teabe sisestamiseks kasutatava dialoogiboksi sündmuse AfterUpdate toimumisel.

Sub OpenToCallahan()
DoCmd.OpenForm "Töötajad", acNormal, , , _
acReadOnly, , "Callahan"
End Sub
Sub Form_Open(Cancel As Integer)
Dim strTöötajaNimi As String
' Kui argument OpenArgs (Ava argumendid) sisaldab töötaja nime
' otsitakse vastava töötaja kirje ja kuvatakse see vormil.
' Näiteks kui argument OpenArgs (Ava argumendid) sisaldab
' väärtust "Callahan", liigutakse loendis kirjele "Callahan".
strTöötajaNimi = Vormid!Töötajad.OpenArgs
If Len(strTöötajaNimi) > 0 Then
DoCmd.GoToControl "PerekonnaNimi"
DoCmd.FindRecord strTöötajaNimi, , True, , _
True, , True
End If
End Sub

Järgmises näites kasutatakse argumendis OpenArgs (Ava argumendid) nimetatud töötaja leidmiseks meetodit FindFirst (Otsi esimene).

Private Sub Form_Open(Cancel As Integer)
If Not IsNull(Me.OpenArgs) Then
Dim strTöötajaNimi As String
strTöötajaNimi = Me.OpenArgs
Dim RS As DAO.Recordset
Set RS = Me.RecordsetClone
RS.FindFirst "PerekonnaNimi = '" & _
strTöötajaNimi & "'"
If Not RS.NoMatch Then
Me.Bookmark = RS.Bookmark
End If
End If
End Sub
Täiendage oma oskusi
Tutvuge koolitusmaterjalidega
Kasutage uusi funktsioone enne teisi
Liituge Office Insideri programmiga

Kas sellest teabest oli abi?

Täname tagasiside eest!

Täname tagasiside eest! Tundub, et võiksime teid kokku viia ühega meie Office'i tugiagentidest, kes aitab teil probleemi lahendada.

×