Applies ToAccess για Microsoft 365 Access 2024 Access 2021 Access 2019 Access 2016

Ισχύει για

Αντικείμενο Form

Αντικείμενο Report

Προσδιορίζει την παράσταση συμβολοσειράς που καθορίζεται από το όρισμα OpenArgs της μεθόδου OpenForm που άνοιξε μια φόρμα. Ανάγνωσης/εγγραφής, Πολυμεταβλητή.

παράσταση.OpenArgs

παράσταση Υποχρεωτικό. Μια παράσταση που επιστρέφει ένα από τα αντικείμενα της λίστας "Ισχύει για".

Παρατηρήσεις

Αυτή η ιδιότητα είναι διαθέσιμη μόνο όταν χρησιμοποιείται μια μακροεντολή ή κώδικας της Visual Basic for Applications (VBA) με τη μέθοδο OpenForm του αντικειμένου DoCmd. Αυτή η ρύθμιση ιδιότητας είναι μόνο για ανάγνωση σε όλες τις προβολές.

Για να χρησιμοποιήσετε την ιδιότητα OpenArgs, ανοίξτε μια φόρμα χρησιμοποιώντας τη μέθοδο OpenForm του αντικειμένου DoCmd και ορίστε το όρισμα OpenArgs στην παράσταση συμβολοσειράς που θέλετε. Η ρύθμιση της ιδιότητας OpenArgs μπορεί τότε να χρησιμοποιηθεί σε κώδικα για τη φόρμα, όπως σε μια διαδικασία συμβάντος Open. Μπορείτε επίσης να κάνετε παραπομπή στη ρύθμιση της ιδιότητας σε μια μακροεντολή, όπως μια μακροεντολή Open ή σε μια παράσταση, όπως μια παράσταση που ορίζει την ιδιότητα ControlSource για ένα στοιχείο ελέγχου στη φόρμα.

Για παράδειγμα, ας υποθέσουμε ότι η φόρμα που ανοίγετε είναι μια λίστα συνεχούς φόρμας με πελάτες. Εάν θέλετε η εστίαση να μετακινηθεί σε μια συγκεκριμένη εγγραφή κατά το άνοιγμα της φόρμας, μπορείτε να ορίσετε την ιδιότητα OpenArgs στο όνομα του πελάτη και, στη συνέχεια, να χρησιμοποιήσετε την ενέργεια FindRecord ενέργειας σε μια μακροεντολή Open για να μετακινήσετε την εστίαση στην εγγραφή για τον πελάτη με το καθορισμένο όνομα.

Παράδειγμα

Το παρακάτω παράδειγμα χρησιμοποιεί την ιδιότητα OpenArgs για να ανοίξει τη φόρμα Employees σε μια συγκεκριμένη εγγραφή υπαλλήλου και δείχνει πώς η μέθοδος OpenForm ορίζει την ιδιότητα OpenArgs. Μπορείτε να εκτελέσετε αυτήν τη διαδικασία, ανάλογα με την περίπτωση, για παράδειγμα, όταν παρουσιαστεί το συμβάν 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

Το επόμενο παράδειγμα χρησιμοποιεί τη μέθοδο FindFirst για τον εντοπισμό του υπαλλήλου το όνομα του οποίου υπάρχει στην ιδιότητα 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

Χρειάζεστε περισσότερη βοήθεια;

Θέλετε περισσότερες επιλογές;

Εξερευνήστε τα πλεονεκτήματα της συνδρομής, περιηγηθείτε σε εκπαιδευτικά σεμινάρια, μάθετε πώς μπορείτε να προστατεύσετε τη συσκευή σας και πολλά άλλα.

Οι κοινότητες σάς βοηθούν να κάνετε και να απαντάτε σε ερωτήσεις, να δίνετε σχόλια και να ακούτε από ειδικούς με πλούσια γνώση.