Svojstvo Tag

Odnosi se na

Pohranjuje dodatne informacije o elementu vrste obrazac, izvješće, stranica za pristup podacima, odjeljak ili kontrola potrebne aplikaciji Microsoft Office Access 2007. To je svojstvo vrste Niz za čitanje/pisanje.

izraz.Tag

expression Obavezno. Izraz koji vraća jedan od objekata na popisu Primjenjuje se na.

Napomene

Možete unijeti nizovni izraz dugačak najviše 2048 znakova. Zadana je postavka niz nulte dužine (" ").

To svojstvo možete postaviti pomoću list svojstava objekta, makronaredba ili koda programa Visual Basic for Applications (VBA).

Za razliku od drugih svojstava, postavljanje svojstva Tag ne utječe ni na koji atribut objekta.

Pomoću tog svojstva objektu možete dodijeliti identifikacijski niz ne utječući na druge postavke njegovih svojstava i ne uzrokujući druge neželjene rezultate. Svojstvo Tag korisno je kada morate provjeriti identitet obrasca, izvješća, stranice za pristup podataka, sekcije ili kontrole koji su proceduri proslijeđeni kao varijabla.

Primjer

U sljedećem se primjeru pomoću svojstva Tag prikazuju prilagođene poruke o kontrolama u obrascu. Kada se na kontrolu premjesti fokus, u kontroli natpisa pod nazivom lblMessage prikazuje se opisni tekst. Tekst poruke navodite postavljanjem kratkog tekstnog niza za svojstvo Tag za svaku kontrolu. Kada se na kontrolu premjesti fokus, njezino svojstvo Tag dodjeljuje se svojstvu Caption kontrole oznake. U ovom se primjeru na obrascu prikazuje opisni tekst za tekstni okvir pod nazivom txtDescription i naredbeni gumb pod nazivom cmdButton.

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