Tag, propriété

S’applique à

Stocke des informations supplémentaires sur un formulaire, état, page d’accès aux données, section ou contrôle dont une application Access a besoin. Chaîne en lecture/écriture.

expression.Balise

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

Remarques

Vous pouvez entrer une expression de chaîne jusqu’à 2 048 caractères de long. Le paramètre par défaut est une chaîne nulle (" ").

Vous pouvez définir cette propriété à l’aide de la feuille de propriétés de l’objet, d’une macro ou d’un code Visual Basic pour Applications (VBA).

Contrairement aux autres propriétés, la définition de la propriété Balise n’affecte aucun des attributs d’un objet.

Vous pouvez utiliser cette propriété pour assigner une chaîne d’identification à un objet sans affecter aucun des autres paramètres de propriété ou occasionner d’autres effets secondaires. La propriété Balise est utile lorsque vous devez vérifier l’identité d’un formulaire, d’un état, d’une page d’accès aux données, d’une section ou d’un contrôle transmis en tant que variable à une procédure.

Exemple

L’exemple suivant utilise la propriété Balise pour afficher des messages personnalisés concernant des contrôles sur un formulaire. Lorsque le focus est positionné sur un contrôle, un texte descriptif s’affiche dans un contrôle d’étiquette appelé lblMessage. Vous spécifiez le texte du message en définissant la propriété Balise pour chaque contrôle sur une chaîne de texte court. Quand le focus se positionne sur un contrôle, sa propriété Balise est assignée à la propriété Légende du contrôle d’étiquette. Cet exemple affiche le texte descriptif d’une zone de texte nommée txtDescription et un bouton de commande nommé cmdButton 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