Si applica a
|
Oggetto BoundObjectFrame |
Oggetto Label |
Oggetto Rectangle |
|
Oggetto CheckBox |
Oggetto ListBox |
Oggetto Section |
|
Oggetto ComboBox |
Oggetto ObjectFrame |
Raccolta TabControl |
|
Oggetto CommandButton |
Oggetto OptionButton |
Oggetto TextBox |
|
Oggetto Form |
Oggetto OptionGroup |
Oggetto ToggleButton |
|
Oggetto Image |
Oggetto Page |
Imposta o restituisce il valore della casella Su clic della finestra Proprietà di uno degli oggetti nell'elenco Si applica a. Oggetto String di lettura/scrittura.
espressione.SuClic
espressione Obbligatorio. Espressione che restituisce uno degli oggetti inclusi nell'elenco Si applica a.
Osservazioni
Questa proprietà risulta utile per la modifica a livello di programmazione dell'azione effettuata da Microsoft Office Access 2007 quando viene attivato un evento. Ad esempio, tra chiamate eventi è possibile che si voglia modificare i parametri di un'espressione oppure passare da una routine evento a un'espressione o una macro, in base alle circostanze in cui è stato attivato l'evento.
L'evento Clic si verifica quando un utente preme e rilascia il pulsante sinistro del mouse sopra un oggetto.
Il valore di .SuClic sarà uno dei seguenti, in base alla selezione scelta nella finestra Scegli generatore, a cui si accede facendo clic sul pulsante Genera accanto alla casella Su clic nella finestra Proprietà dell'oggetto:
-
Se si sceglie Generatore di espressioni, il valore sarà "=espressione", dove espressione corrisponde all'espressione della finestra Generatore di espressioni.
-
Se si sceglie Generatore di macro, il valore corrisponde al nome della macro.
-
Se si sceglie Generatore di codice, il valore sarà "[routine evento]".
Se la casella Su clic è vuota, il valore della proprietà è una stringa vuota.
Esempio
L'esempio seguente associa l'evento Click alla routine evento "OK_Click" per il pulsante denominato "OK" della maschera "Ordini", se non è presente alcuna associazione.
With Forms("Order Entry").Controls("OK")
If .OnClick = "" Then
.OnClick = "[Event Procedure]"
End If
End With
