Applies ToAccess for Microsoft 365 Access 2024 Access 2021 Access 2019 Access 2016

Gjelder for

Skjemaobjekt

Rapportobjekt

Bestemmer strenguttrykk angitt av OpenArgs-argumentet for OpenForm-metoden som åpnet et skjema. Lese/skrive Variant.

uttrykk.OpenArgs

uttrykk Påkrevd. Et uttrykk som returnerer ett av objektene i Gjelder for-listen.

Merknader

Denne egenskapen er tilgjengelig bare ved bruk av en makro eller ved hjelp av Visual Basic for Applications, VBA-kode med OpenForm-metoden for DoCmd-objektet. Denne egenskapsinnstillingen er skrivebeskyttet i alle visninger.

Hvis du vil bruke OpenArgs-egenskapen, åpner du et skjema ved hjelp av OpenForm-metoden for DoCmd-objektet, og angir OpenArgs-argumentet til ønsket strenguttrykk. Egenskapsinnstillingen for OpenArgs kan deretter brukes i kode for skjemaet, som i en åpen hendelsesprosedyre. Du kan også referere til egenskapsinnstillingen i en makro, som en Open-makro eller et uttrykk, for eksempel et uttrykk som angir ControlSource-egenskapen for en kontroll i skjemaet.

Anta for eksempel at skjemaet du åpner, er en kontinuerlig skjemaliste over kunder. Hvis du vil at fokus skal flytte til en bestemt kundepost når skjemaet åpnes, kan du angi OpenArgs-egenskapen til kundens navn, og deretter bruke FinnPost-handlingen i en Open-makro for å flytte fokuset til posten for kunden med det spesifiserte navnet.

Eksempel

Følgende eksempel bruker OpenArgs-egenskapen for å åpne ansattskjemaet for en bestemt ansattpost og viser hvordan OpenForm-metoden angir OpenArgs-egenskapen. Du kan kjøre denne prosedyren etter behov, for eksempel når AfterUpdate-hendelsen opptrer for en egendefinert dialogboks som brukes for å angi ny informasjon om en ansatt.

Sub OpenToCallahan()    DoCmd.OpenForm "Employees", acNormal, , , _        acReadOnly, , "Callahan"End SubSub 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 IfEnd Sub

Det neste eksemplet bruker FindFirst-metoden for å finne den ansatte navngitt i OpenArgs-egenskapen.

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 IfEnd Sub

Trenger du mer hjelp?

Vil du ha flere alternativer?

Utforsk abonnementsfordeler, bla gjennom opplæringskurs, finn ut hvordan du sikrer enheten og mer.

Fellesskap hjelper deg med å stille og svare på spørsmål, gi tilbakemelding og høre fra eksperter med stor kunnskap.