Applies ToAccess 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

Serve aiuto?

Vuoi altre opzioni?

Esplorare i vantaggi dell'abbonamento e i corsi di formazione, scoprire come proteggere il dispositivo e molto altro ancora.