Applies ToAccess pour Microsoft 365 Access 2024 Access 2021 Access 2019 Access 2016

S’applique à

Objet BoundObjectFrame

Objet Label

Objet Rectangle

Objet CheckBox

Objet ListBox

Objet Section

Objet ComboBox

Objet ObjectFrame

Collection TabControl

Objet CommandButton

Objet OptionButton

Objet TextBox

Objet Form

Objet OptionGroup

Objet ToggleButton

Objet Image

Objet Page

Définit ou renvoie la valeur de la zone Sur clic dans la fenêtre Propriétés de l’un des objets de la liste S’applique à. Chaîne en lecture/écriture.

expression.SurClic

expression Obligatoire. Expression qui renvoie l’un des objets de la liste S’applique à.

Remarques

Cette propriété est utile pour modifier par programme l’action effectuée par Access lorsqu’un événement est déclenché. Par exemple, entre les appels des événements, vous pouvez modifier les paramètres d’une expression, ou passer d’une procédure événementielle à une expression ou à une macro, selon les circonstances de déclenchement de l’événement.

L’événement Clic se produit quand un utilisateur enfonce, puis relâche le bouton gauche de la souris.

La valeur SurClic correspondra à l’une des valeurs suivantes, selon la sélection effectuée dans la fenêtre Choisir Générateur (accessible en cliquant sur le bouton Générer en regard de la zone Sur clic dans la fenêtre Propriétés de l’objet) :

  • En cas de choix du Générateur d’expressions, la valeur est « =expression », où expression correspond à l’expression de la fenêtre Générateur d’expressions.

  • Si Générateur de macro est choisi, la valeur correspondra au nom de la macro.

  • En cas de choix du Générateur de code, la valeur est « [Procédure événementielle] ».

Si la zone Sur clic est vide, la valeur de la propriété est une chaîne vide.

Exemple

L’exemple suivant associe l’événement Clic avec la procédure événementielle « OK_Click » du bouton nommé « OK » sur le formulaire « Order Entry » (Saisie de commande), s’il n’existe actuellement aucune association.

With Forms("Order Entry").Controls("OK")
    If .OnClick = "" Then
        .OnClick = "[Event Procedure]"
    End If
End With

Besoin d’aide ?

Vous voulez plus d’options ?

Explorez les avantages de l’abonnement, parcourez les cours de formation, découvrez comment sécuriser votre appareil, etc.

Les communautés vous permettent de poser des questions et d'y répondre, de donner vos commentaires et de bénéficier de l'avis d'experts aux connaissances approfondies.