Σε αυτό το σεμινάριο, θα μάθουμε πώς να ανοίγουμε ή να κλείνουμε φόρμες πρόσβασης χρησιμοποιώντας VBA.
Άνοιγμα φόρμας πρόσβασης
Για να ανοίξετε μια φόρμα στην Access, χρησιμοποιήστε τη μέθοδο DoCmd.OpenForm:
DoCmd.OpenForm "AccessForm"
Αυτό θα ανοίξει τη φόρμα που ονομάζεται "AccessForm":
AccessForm Εμφανίζεται στο παράθυρο περιήγησης
Άνοιγμα φόρμας με κριτήρια
Αυτός ο κωδικός θα ανοίξει μια φόρμα στην Access με συγκεκριμένα κριτήρια:
DoCmd.OpenForm "AccessForm", acNormal,, "ID = 10"
DoCmd.OpenForm Syntax
Η πλήρης σύνταξη της μεθόδου είναι:
DoCmd.OpenForm (ΌνομαOfForm, FormView, Όνομα φίλτρου, WhereCondition, DataMode, WindowMode, OpenArgs) όπου:
| Παράμετρος | Περιγραφή |
|---|---|
| NameOfForm | Απαιτείται και είναι το όνομα της φόρμας που θέλετε να ανοίξετε. |
| FormView | Προαιρετικό και σας επιτρέπει να καθορίσετε την προβολή της φόρμας. Αυτό μπορεί να είναι: acDesign, acFormDS, acFormPivotChart, acFormPivotTable, acLayout, acNormal, acLayout ή acPreview. Η προεπιλογή είναι acNormal. |
| Όνομα φίλτρου | Προαιρετικό και σας επιτρέπει να καθορίσετε το όνομα ενός ερωτήματος ή συμβολοσειράς SQL που θα χρησιμοποιηθεί ως φίλτρο. |
| WhereCondition | Προαιρετικό και σας επιτρέπει να πραγματοποιήσετε ένα ερώτημα τύπου where χωρίς να χρησιμοποιήσετε τη λέξη where. |
| DataMode | Προαιρετικό και σας επιτρέπει να καθορίσετε τη λειτουργία εισαγωγής δεδομένων. Αυτό μπορεί να είναι: acFormAdd, acFormEdit, acFormPropertySettings ή acFormReadOnly. Η προεπιλογή είναι acFormPropertySettings. |
| WindowMode | Προαιρετικό και ορίζει την εμφάνιση της λειτουργίας παραθύρου. Αυτό μπορεί να είναι: acDialog, acHidden, acIcon, acWindowNormal. Η προεπιλογή είναι acWindowNormal. |
| OpenArgs | Το προαιρετικό μπορεί να αναφέρεται σε μακροεντολές και εκφράσεις. |
Προγραμματισμός VBA | Το Code Generator λειτουργεί για εσάς!
Κλείστε μια φόρμα στην Access
Χρησιμοποιήστε το DoCmd.Close για να κλείσετε μια ανοιχτή φόρμα:
DoCmd.Close acForm, "AccessForm"
Κλείστε τη φόρμα και αποθηκεύστε
Αυτός ο κωδικός VBA θα κλείσει και θα αποθηκεύσει μια φόρμα πρόσβασης:
DoCmd.Close acForm, "AccessForm", acSaveYes
Ερώτηση πριν από το κλείσιμο της φόρμας
Αυτή η διαδικασία θα ζητήσει από τον χρήστη πριν κλείσει μια φόρμα:
Public Sub CloseFormWithConfirmation (FormName As String) If MsgBox ("Είστε βέβαιοι ότι θέλετε να κλείσετε αυτό το παράθυρο;", vbYesNo + vbQuestion, "Confirmation") = vbΝαι Τότε DoCmd.Close acForm, FormName End If End Sub
Μπορείτε να το ονομάσετε ως εξής:
Private Sub CloseFormWithConfirmation_Example () Call Call CloseFormWithConfirmation ("AccessForm") End Sub
Κουραστήκατε να ψάχνετε για παραδείγματα κώδικα VBA; Δοκιμάστε το AutoMacro!
DoCmd. Κλείσιμο σύνταξης
Η πλήρης σύνταξη της μεθόδου είναι:
DoCmd. Close (ObjectType, Όνομα αντικειμένου, Αποθήκευση αντικειμένου) όπου:
| Παράμετρος | Περιγραφή |
|---|---|
| ObjectType | Προαιρετικό και αυτός είναι ο τύπος αντικειμένου που θα θέλατε να κλείσετε. Αυτό μπορεί να είναι μια φόρμα ή μια αναφορά κλπ. |
| Όνομα αντικειμένου | Προαιρετικό και είναι το όνομα του αντικειμένου που θέλετε να κλείσετε. |
| Αποθήκευση αντικειμένου | Προαιρετικό και χρησιμοποιείται για να καθορίσει εάν θέλετε να αποθηκεύσετε τις αλλαγές που έγιναν. |
