Avausargumentit-ominaisuus

Koskee seuraavia

Määrittää, mikä on lomakkeen avanneen AvaaLomake-menetelmän Avausargumentit-argumentin määrittämä merkkijonolauseke. Muuttuja, jolla on luku-/kirjoitusoikeudet.

lauseke.Avausargumentit

lauseke Pakollinen. Lauseke, joka palauttaa jonkin Koskee seuraavia -luettelon objekteista.

Huomautuksia

Tämä ominaisuus on käytettävissä vain makron tai Visual Basic for Applications (VBA) -koodin ja DoCmd-objektin AvaaLomake-menetelmän avulla. Tämä ominaisuusasetus on vain luku -tilassa kaikissa näkymissä.

Kun haluat käyttää Avausargumentit-ominaisuutta, avaa lomake DoCmd-objektin AvaaLomake-menetelmällä ja määritä haluamasi merkkijonolauseke Avausargumentit-argumentiksi. Avausargumentit-ominaisuusasetusta voi tämän jälkeen käyttää lomakkeessa, esimerkiksi Avaus-tapahtumatoimintosarjassa. Voit viitata ominaisuusasetukseen myös makrossa, kuten Avaa-makrossa, tai lausekkeessa, esimerkiksi sellaisessa, joka määrittää lomakkeen ohjainn OhjausobjektinLähde-ominaisuuden.

Oletetaan esimerkiksi, että avaamasi lomake on asiakasluettelon sisältävä jatkolomake. Jos haluat, että aktiivisuus siirtyy tiettyyn asiakastietueeseen, kun lomake avautuu, voit määrittää Avausargumentit-ominaisuudeksi asiakkaan nimen ja siirtää kohdistuksen määritetyn nimisen asiakkaan tietueeseen käyttämällä Avaa-makron EtsiTietue-toimintoa.

Esimerkki

Seuraavassa esimerkissä AvaaArguksit-ominaisuuden avulla avataan Työntekijät-lomake tietylle työntekijätietueessa ja näytetään, miten OpenForm-menetelmä määrittää OpenArgs-ominaisuuden . Voit suorittaa tämän toimenpiteen tarpeen mukaan esimerkiksi silloin, kun AfterUpdate-tapahtuma tapahtuu mukautetussa valintaikkunassa, jonka avulla lisätään uusia tietoja työntekijästä.

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

Seuraavassa esimerkissä Avausargumentit-ominaisuudessa määritetty työntekijä etsitään EtsiEnsimmäinen-menetelmällä.

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