Koskee seuraavia
Lomakeobjekti |
Raporttiobjekti |
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