Applies To„Access“, skirta „Microsoft 365“ „Access 2024“ Access 2021 Access 2019 Access 2016

Taikoma

Objektas Form

Objektas Report

Nustato eilutės išraiška, nurodytą openForm metodo, kuris atidarė formą, argumentu OpenArgs. Skaitoma / rašoma duomenų tipo Variant reikšmė.

reiškinys.OpenArgs

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

Pastabos

Ši ypatybė galima tik naudojant makrokomanda arba naudojant "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 argumentą OpenArgs kaip pageidaujamą eilutės reiškinį. Ypatybės OpenArgs parametrą galima naudoti formos kode, pvz., lauke Atidaryti įvykio procedūra. Taip pat galite nurodyti ypatybės parametrą makrokomandoje, pvz., makrokomandą Atidaryti, arba išraišką, pvz., išraišką, kuri nustato formos valdiklis ypatybę ControlSource .

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

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

Reikia daugiau pagalbos?

Norite daugiau parinkčių?

Sužinokite apie prenumeratos pranašumus, peržiūrėkite mokymo kursus, sužinokite, kaip apsaugoti savo įrenginį ir kt.

Bendruomenės padeda užduoti klausimus ir į juos atsakyti, pateikti atsiliepimų ir išgirsti iš ekspertų, turinčių daug žinių.