Μπορείτε να χρησιμοποιήσετε την ενέργεια CancelEvent για να ακυρώσετε την συμβάν που προκάλεσε την εκτέλεση των Accessμακροεντολή που περιέχουν αυτήν την ενέργεια. Το όνομα της μακροεντολής είναι η ρύθμιση μιας ιδιότητας συμβάντος όπως BeforeUpdate, OnOpen, OnUnload ή OnPrint.
Σημείωση: Η ενέργεια μακροεντολής CancelEvent δεν είναι διαθέσιμη στις εφαρμογές web της Access.
Ρύθμιση
Η ενέργεια CancelEvent δεν διαθέτει ορίσματα.
Παρατηρήσεις
Σε μια φόρμα, συνήθως χρησιμοποιείτε την ενέργεια CancelEvent σε μια μακροεντολή επικύρωση με την ιδιότητα συμβάντος BeforeUpdate . Όταν ένας χρήστης εισάγει δεδομένα σε ένα στοιχείο ελέγχου ή εγγραφή, η Access εκτελεί τη μακροεντολή πριν από την προσθήκη των δεδομένων στη βάση δεδομένων. Εάν τα δεδομένα αποτύχουν στις συνθήκες επικύρωσης στη μακροεντολή, η ενέργεια CancelEvent ακυρώνει τη διαδικασία ενημέρωση πριν από την εκκίνησή της.
Συχνά, χρησιμοποιείτε αυτή την ενέργεια με την ενέργεια msgBox για να υποδείξετε ότι τα δεδομένα απέτυχαν στις συνθήκες επικύρωσης και για να παράσχετε χρήσιμες πληροφορίες σχετικά με το είδος των δεδομένων που πρέπει να καταχωρηθούν.
Τα ακόλουθα συμβάντα μπορούν να ακυρωθούν από την ενέργεια CancelEvent .
|
ApplyFilter |
Dirty |
Mousedown |
|
BeforeDelConfirm |
Έξοδος |
NoData |
|
BeforeInsert |
Φίλτρο |
Ανοιχτό |
|
Beforeupdate |
Μορφοποίηση |
Εκτύπωση |
|
DblClick |
Πάτημα |
Ξεφορτώσουν |
|
Να διαγράψετε |
Σημείωση: Μπορείτε να χρησιμοποιήσετε την ενέργεια CancelEvent με το συμβάν MouseDown μόνο για να ακυρώσετε το συμβάν που παρουσιάζεται όταν κάνετε δεξί κλικ σε ένα αντικείμενο.
Εάν η ρύθμιση ιδιότητας συμβάντος OnDblClick ενός στοιχείου ελέγχου καθορίζει μια μακροεντολή που περιέχει την ενέργεια CancelEvent , η ενέργεια ακυρώνει το συμβάν DblClick .
Για τα συμβάντα που μπορούν να ακυρωθούν, προκύπτει η προεπιλεγμένη συμπεριφορά για το συμβάν (δηλαδή, τι κάνει συνήθως η Access όταν παρουσιάζεται το συμβάν) μετά την εκτέλεση της μακροεντολής για το συμβάν. Αυτό σας επιτρέπει να ακυρώσετε την προεπιλεγμένη συμπεριφορά. Για παράδειγμα, όταν κάνετε διπλό κλικ σε μια λέξη στην οποία βρίσκεται το σημείο εισαγωγής σε ένα πλαίσιο κειμένου, η Access συνήθως επιλέγει τη λέξη. Μπορείτε να ακυρώσετε αυτή την προεπιλεγμένη συμπεριφορά στη μακροεντολή για το συμβάν DblClick και να εκτελέσετε κάποια άλλη ενέργεια, όπως το άνοιγμα μιας φόρμας που περιέχει πληροφορίες σχετικά με τα δεδομένα στο πλαίσιο κειμένου. Για συμβάντα που δεν μπορούν να ακυρωθούν, η προεπιλεγμένη συμπεριφορά παρουσιάζεται πριν από την εκτέλεση της μακροεντολής.
Σημείωση: Εάν η ιδιότητα συμβάντος OnUnload μιας φόρμας καθορίζει μια μακροεντολή που εκτελεί μια ενέργεια CancelEvent , δεν θα μπορείτε να κλείσετε τη φόρμα. Πρέπει είτε να διορθώσετε τη συνθήκη που προκάλεσε την εκτέλεση της ενέργειας CancelEvent είτε να ανοίξετε τη μακροεντολή και να διαγράψετε την ενέργεια CancelEvent . Εάν η φόρμα είναι φόρμα αποκλειστικό, δεν θα μπορείτε να ανοίξετε τη μακροεντολή.
Για να εκτελέσετε την ενέργεια CancelEvent σε μια λειτουργική μονάδα Visual Basic for Applications (VBA), χρησιμοποιήστε τη μέθοδο CancelEvent του αντικειμένου DoCmd.
Παράδειγμα
Επικύρωση δεδομένων με χρήση μακροεντολής
Η ακόλουθη μακροεντολή επικύρωσης ελέγχει τους ταχυδρομικούς κώδικες που καταχωρούνται σε μια φόρμα προμηθευτών. Εμφανίζει τη χρήση των ενεργειών StopMacro, MsgBox, CancelEvent και GoToControl . Μια παράσταση υπό όρους ελέγχει τη χώρα/περιοχή και τον ταχυδρομικό κώδικα που καταχωρούνται σε μια εγγραφή της φόρμας. Εάν ο ταχυδρομικός κώδικας δεν είναι στη σωστή μορφή για τη χώρα/περιοχή, η μακροεντολή εμφανίζει ένα πλαίσιο μηνύματος και ακυρώνει την αποθήκευση της εγγραφής. Στη συνέχεια, σας επιστρέφει στο στοιχείο ελέγχου Ταχυδρομικός κώδικας, όπου μπορείτε να διορθώσετε το σφάλμα. Αυτή η μακροεντολή πρέπει να επισυνάπτεται στην ιδιότητα BeforeUpdate της φόρμας Προμηθευτές.
|
Συνθήκη |
Ενέργεια |
Ορίσματα: Ρύθμιση |
Σχόλιο |
|
IsNull([Χώρα/Περιοχή]) |
StopMacro |
Εάν το countryregion είναι Null, ο ταχυδρομικός κώδικας δεν μπορεί να επικυρωθεί. |
|
|
[Χώρα/Περιοχή] In ("Γαλλία";"Ιταλία";"Ισπανία") And Len([Ταχυδρομικός κώδικας]) <> 5 |
Msgbox |
Μήνυμα: Ο ταχυδρομικός κώδικας πρέπει να έχει χαρακτήρες 5. Ηχητικό σήμα: Ναι Τύπος: Πληροφορίες Τίτλος: Σφάλμα ταχυδρομικού κώδικα |
Εάν ο ταχυδρομικός κώδικας δεν είναι 5 χαρακτήρες, εμφανίστε ένα μήνυμα. |
|
... |
Ακύρωσηαναευθυντήρα |
Ακύρωση του συμβάντος. |
|
|
GoToControl |
Όνομα στοιχείου ελέγχου: Ταχυδρομικός κώδικας |
||
|
[Χώρα/Περιοχή] In ("Αυστραλία";"Σιγκαπούρη") And Len([Ταχυδρομικός κώδικας]) <> 4 |
Msgbox |
Μήνυμα: Ο ταχυδρομικός κώδικας πρέπει να αποτελείται από 4 χαρακτήρες. Ηχητικό σήμα: Ναι Τύπος: Πληροφορίες Τίτλος: Σφάλμα ταχυδρομικού κώδικα |
Εάν ο ταχυδρομικός κώδικας δεν είναι 4 χαρακτήρες, εμφανίστε ένα μήνυμα. |
|
... |
Ακύρωσηαναευθυντήρα |
Ακύρωση του συμβάντος. |
|
|
GoToControl |
Όνομα στοιχείου ελέγχου: Ταχυδρομικός κώδικας |
||
|
([Χώρα/Περιοχή] = "Καναδάς") And ([Ταχυδρομικός κώδικας] Not Like"[A-Z][0-9][A-Z] [0-9][A-Z][0-9]") |
Msgbox |
Μήνυμα: Ο ταχυδρομικός κώδικας δεν είναι έγκυρος. Παράδειγμα κώδικα Καναδά: H1J 1C3 Ηχητικό σήμα: Ναι Τύπος: Πληροφορίες Τίτλος: Σφάλμα ταχυδρομικού κώδικα |
Εάν ο ταχυδρομικός κώδικας δεν είναι σωστός για τον Καναδά, εμφανίστε ένα μήνυμα. (Παράδειγμα κώδικα Καναδά: H1J 1C3) |
|
... |
Ακύρωσηαναευθυντήρα |
Ακύρωση του συμβάντος. |
