Svojstvo Tag

Odnosi se na

Objekt BoundObjectFrame	Objekt Image	Objekt OptionGroup	Objekt SubForm
Objekt CheckBox	Objekt Label	Objekt Page	Zbirku TabControl
Objekt ComboBox	Objekt Line	Objekt PageBreak	Objekt TextBox
Objekt CommandButton	Objekt ListBox	Objekt Rectangle	Objekt ToggleButton
Objekt CustomControl	Objekt ObjectFrame	Objekt Report
Objekt Form	Objekt OptionButton	Objekt Section

Pohranjuje dodatne informacije o obrascu, izvješću, stranici za pristup podataka, sekciji ili kontroli potrebne aplikaciji programa Access. To je svojstvo vrste Niz za čitanje/pisanje.

izraz.Tag

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

Napomene

Možete unijeti nizovni izraz dugačak do 2048 znakova. Zadana je postavka niz nulte duljine (" ").

To svojstvo možete postaviti pomoću lista svojstava objekta, makronaredbe 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 s nazivom txtDescriptioncmdButton i naredbeni gumb.

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