Proprietatea OpenArgs

Se aplică la

Determină o expresie șir specificată de argumentul OpenArgs al metodei OpenForm care a deschis un formular. Variant în citire/scriere.

expresie.OpenArgs

expresie Obligatoriu. O expresie care returnează unul dintre obiectele din lista Se aplică la.

Observații

Această proprietate este disponibilă doar utilizând o macrocomandă sau utilizând cod Visual Basic for Applications (VBA) cu metoda OpenForm a obiectului DoCmd. Această setare de proprietate este doar în citire în toate vizualizările.

Pentru a utiliza proprietatea OpenArgs, deschideți un formular utilizând metoda OpenForm a obiectului DoCmd și setați argumentul OpenArgs la expresia șir de caractere dorită. Setarea de proprietate OpenArgs poate fi utilizată apoi în codul pentru formular, cum ar fi într-o procedură eveniment Deschidere. De asemenea, puteți face referire la setarea proprietății într-o macrocomandă, cum ar fi o macrocomandă Deschidere sau într-o expresie, cum ar fi una care setează proprietatea ControlSource pentru un control din formular.

De exemplu, să presupunem că formularul pe care îl deschideți este o listă de clienți cu formulare continue. Dacă doriți ca focalizare să treacă la o anumită înregistrare client atunci când se deschide formularul, puteți să setați proprietatea OpenArgs la numele clientului, apoi să utilizați acțiunea CăutareÎnreg într-o macrocomandă Deschidere pentru a muta focalizarea la înregistrarea pentru client cu numele specificat.

Exemplu

Următorul exemplu utilizează proprietatea OpenArgs pentru a deschide formularul Employees (Angajați) la o anumită înregistrare de angajat și demonstrează cum setează metoda OpenForm proprietatea OpenArgs. Puteți rula această procedură după caz, de exemplu, atunci când evenimentul AfterUpdate are loc pentru o casetă de dialog particularizată utilizată pentru a introduce informații noi despre un angajat.

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

Următorul exemplu utilizează metoda FindFirst pentru a găsi angajatul numit în proprietatea 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 If
End Sub