Propriété Form.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.
expression. Étiquette
expressionVariable qui représente un objetForm.
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.
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
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.