Partager via


Propriété CustomControl.Tag (Access)

Stocke des informations supplémentaires relatives à un formulaire, état, section ou contrôle requises par une application Microsoft Access. String en lecture/écriture.

Syntaxe

expression. Étiquette

Expression Variable qui représente un objet CustomControl .

Remarques

Vous pouvez taper une expression chaîne d'un maximum de 2 048 caractères. Le paramètre par défaut est une chaîne de longueur nulle (" ").

Contrairement aux autres propriétés, la propriété Tag n'affecte pas les attributs d'un objet.

Utilisez cette propriété pour affecter une chaîne d’identification à un objet sans affecter ses autres paramètres de propriété ou provoquer d’autres effets secondaires. La propriété Tag est utile lorsque vous devez vérifier l'identité d'un formulaire, état, section ou un contrôle qui est transmis comme variable à une procédure.

Exemple

L'exemple suivant utilise la propriété Tag pour afficher des messages personnalisés concernant les contrôles d'un formulaire. Lorsqu'un contrôle est activé, du texte descriptif est affiché dans un contrôle de type étiquette appelé lblMessage. Vous spécifiez le texte du message en définissant la propriété Tag de chaque contrôle sur une chaîne de texte court. Lorsqu'un contrôle reçoit le focus, sa propriété Tag est affectée à la propriété Caption du contrôle label.

Cet exemple affiche le texte descriptif pour une zone de texte appelée txtDescription et un bouton de commande appelé cmdBouton sur un formulaire.

Sub Form_Load() 
 Dim frmMessageForm As Form 
 
 Set frmMessageForm = Forms!Form1 
 
 frmMessageForm!lblMessage.Caption = "" ' Clear text. 
 frmMessageForm!txtDescription.Tag = "Help text for the text box." 
 frmMessageForm!cmdButton.Tag = "Help text for the command button." 
End Sub 
 
Sub txtDescription_GotFocus() 
 ' Tag property setting as caption. 
 Me!lblMessage.Caption = Me!txtDescription.Tag 
End Sub 
 
Sub txtDescription_LostFocus() 
 Me!lblMessage.Caption = "" 
End Sub 
 
Sub cmdButton_GotFocus() 
 ' Tag property setting as caption. 
 Me!lblMessage.Caption = Me!cmdButton.Tag 
End Sub 
 
Sub cmdButton_LostFocus() 
 Me.lblMessage.Caption = " " 
End Sub

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.