Proprietà OnClick

Si applica a
Access per Microsoft 365 Access 2024 Access 2021 Access 2019 Access 2016

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à è utile per modificare a livello di programmazione l'azione eseguita da Access 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