Propriété SurClic

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 figurant dans la liste S’applique à.

Remarques

Cette propriété est utile pour modifier par programme l’action qu’exécute Microsoft Office Access 2007 quand 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.

  • En cas de choix du Générateur de macro, la valeur est le 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
Développez vos compétences
Découvrez des formations
Accédez aux nouvelles fonctionnalités en avant-première
Rejoignez le programme Office Insider

Ces informations vous ont-elles été utiles ?

Nous vous remercions pour vos commentaires.

Merci pour vos commentaires. Il serait vraisemblablement utile pour vous de contacter l’un de nos agents du support Office.

×