Ισχύει για
Αντικείμενο BoundObjectFrame |
Αντικείμενο Label |
Αντικείμενο Rectangle |
Αντικείμενο CheckBox |
Αντικείμενο ListBox |
Αντικείμενο Section |
Αντικείμενο ComboBox |
Αντικείμενο ObjectFrame |
Συλλογή TabControl |
Αντικείμενο CommandButton |
Αντικείμενο OptionButton |
Αντικείμενο TextBox |
Αντικείμενο Form |
Αντικείμενο OptionGroup |
Αντικείμενο ToggleButton |
Αντικείμενο Image |
Αντικείμενο Page |
Ορίζει ή επιστρέφει την τιμή του πλαισίου Με το κλικ στο παράθυρο Ιδιότητες ενός από τα αντικείμενα της λίστας "Ισχύει για". Ανάγνωσης/εγγραφής, Συμβολοσειρά.
παράσταση.OnClick
παράσταση Υποχρεωτικό. Μια παράσταση που επιστρέφει ένα από τα αντικείμενα της λίστας "Ισχύει για".
Παρατηρήσεις
Αυτή η ιδιότητα είναι χρήσιμη για την αλλαγή μέσω προγραμματισμού της ενέργειας που πραγματοποιεί η Microsoft Office Access 2007 κατά την ενεργοποίηση ενός συμβάντος. Για παράδειγμα, μεταξύ κλήσεων συμβάντων μπορεί να θέλετε να αλλάξετε τις παραμέτρους μιας παράστασης ή να μεταβείτε από μια διαδικασία συμβάντος σε μια παράσταση ή μακροεντολή, ανάλογα με τις συνθήκες κάτω από τις οποίες ενεργοποιήθηκε το συμβάν.
Το συμβάν Click παρουσιάζεται όταν ένας χρήστης πατάει και αφήνει το αριστερό κουμπί του ποντικιού επάνω σε ένα αντικείμενο.
Η τιμή OnClick η τιμή θα είναι μία από τις εξής, ανάλογα με την επιλογή που κάνετε στο παράθυρο διαλόγου Επιλογή δόμησης (μπορείτε να αποκτήσετε πρόσβαση σε αυτό κάνοντας κλικ στο κουμπί Δόμηση δίπλα στο πλαίσιο Με το κλικ στο παράθυρο Ιδιότητες του αντικειμένου):
-
Εάν επιλεγεί η Δόμηση παραστάσεων, η τιμή θα είναι "=παράσταση", όπου παράσταση είναι η παράσταση από το παράθυρο "Δόμηση παραστάσεων".
-
Εάν επιλεγεί η Λειτουργία δόμησης μακροεντολών, η τιμή είναι το όνομα της μακροεντολής.
-
Εάν επιλεγεί η Λειτουργία δόμησης κώδικα, η τιμή θα είναι "[Διαδικασία συμβάντος]".
Εάν το πλαίσιο Με το κλικ είναι κενό, η τιμή της ιδιότητας είναι μια κενή συμβολοσειρά.
Παράδειγμα
Το ακόλουθο παράδειγμα συσχετίζει το συμβάν Click με τη διαδικασία συμβάντος "OK_Click" για το κουμπί "με το όνομα "OK" στη φόρμα"Order Entry", εάν δεν υπάρχει επί του παρόντος καμία σχέση.
With Forms("Order Entry").Controls("OK")
If .OnClick = "" Then
.OnClick = "[Event Procedure]"
End If
End With