Gilt für:
|
BoundObjectFrame-Objekt |
Label-Objekt |
Rectangle-Objekt |
|
CheckBox-Objekt |
ListBox-Objekt |
Section-Objekt |
|
ComboBox-Objekt |
ObjectFrame-Objekt |
TabControl-Sammlung |
|
CommandButton-Objekt |
OptionButton-Objekt |
TextBox-Objekt |
|
Form-Objekt |
OptionGroup-Objekt |
ToggleButton-Objekt |
|
Image-Objekt |
Page-Objekt |
Legt den Wert des Felds Beim Klicken im Fenster Eigenschaften eines der Objekte in der Liste "Gilt für" fest oder gibt diesen zurück. Zeichenfolge mit Lese-/Schreibzugriff.
Ausdruck.OnClick
Ausdruck Erforderlich. Ein Ausdruck, der eines der Objekte in der Liste "Gilt für" zurückgibt.
Hinweise
Diese Eigenschaft ist hilfreich für die programmgesteuerte Änderung der Aktion, die Microsoft Office Access 2007 beim Auslösen eines Ereignisses ausführt. Vielleicht möchten Sie zum Beispiel zwischen Ereignisaufrufen die Parameter eines Ausdrucks ändern oder von einer Ereignisprozedur zu einem Ausdruck oder Makro wechseln – je nachdem, unter welchen Umständen das Ereignis ausgelöst wurde.
Das Click-Ereignis tritt ein, wenn ein Benutzer die linke Maustaste über einem Objekt drückt und loslässt.
Der OnClick-Wert entspricht einem der folgenden Werte, je nachdem, welche Auswahl im Fenster Generator auswählen (Zugriff über die Schaltfläche Erstellen neben dem Feld Beim Klicken im Fenster Eigenschaften des Objekts) vorgenommen wurde:
-
Bei Auswahl des Ausdrucks-Generators lautet der Wert "=Ausdruck", wobei Ausdruck dem Ausdruck im Fenster "Ausdrucks-Generator" entspricht.
-
Bei Auswahl des Makro-Generators entspricht der Wert dem Namen des Makros.
-
Bei Auswahl des Code-Generators lautet der Wert "[Ereignisprozedur]".
Bleibt das Feld Beim Klicken leer, ist der Eigenschaftswert eine leere Zeichenfolge.
Beispiel
Das folgende Beispiel wird das Click-Ereignis der Ereignisprozedur "OK_Click" für die Schaltfläche mit dem Namen "OK" im Formular "Order Entry" zugeordnet, wenn es derzeit keine Zuordnung gibt.
With Forms("Order Entry").Controls("OK")
If .OnClick = "" Then
.OnClick = "[Event Procedure]"
End If
End With
