Proprietatea Tag

Se aplică la

Stochează informații suplimentare despre un formular, un raport, o pagină de acces la date, o secțiune sau un control necesare pentru o aplicație Microsoft Office Access 2007. Șir de caractere în citire/scriere.

expresie.Tag

expresie Obligatoriu. O expresie care returnează unul dintre obiectele din lista Se aplică la.

Observații

Puteți introduce o expresie șir de până la 2048 de caractere. Setarea implicită este un șir de lungime zero („ ”).

Puteți seta această proprietate utilizând foaie de proprietăți obiectului, un macrocomandă sau cod Visual Basic for Applications (VBA).

Spre deosebire de alte proprietăți, setarea de proprietate Tag nu afectează niciun atribut al unui obiect.

Puteți utiliza această proprietate pentru a atribui un șir de identificare unui obiect fără să afectați niciuna din celelalte setări de proprietate și fără să provocați alte efecte secundare. Proprietatea Tag este utilă atunci când trebuie să verificați identitatea unui formular, a unui raport, a unei pagini de acces la date, a unei secțiuni sau a unui control transmise ca variabilă unei proceduri.

Exemplu

Următorul exemplu utilizează proprietatea Tag pentru a afișa mesaje particularizate despre controalele dintr-un formular. Atunci când un control are focalizarea, un text descriptiv se afișează într-un control etichetă numit lblMessage. Specificați textul pentru mesaj setând proprietatea Tag pentru fiecare control la un șir text scurt. Atunci când un control primește focalizarea, proprietatea sa Tag este atribuită proprietății Caption a controlului etichetei. Acest exemplu afișează textul descriptiv pentru o casetă text numită txtDescription și un buton de comandă numit cmdButton de pe un formular.

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