Ypatybė Tag

Taikoma

Saugoma papildoma informacija apie forma, ataskaita, duomenų prieigos puslapis, skyrius arba valdiklis, kurių reikia "Access" taikomajai programai. Skaityti/rašyti String.

reiškinys.Žymė

reiškinys Būtina. Reiškinys, kuris pateikia vieną iš sąrašo „Taikoma“ objektų.

Pastabos

Galite įvesti iki 2 048 simbolių ilgio eilutės išraiška. Numatytasis parametras yra nulinio ilgio eilutė (" ").

Šią ypatybę galite nustatyti naudodami objekto ypatybės lapas, makrokomanda arba „Visual Basic for Applications“ (VBA) kodą.

Skirtingai nuo kitų ypatybių, Žymės ypatybės parametras nepaveikia jokių objekto atributų.

Naudodami šią ypatybę galite priskirti identifikavimo eilutę objektui nepaveikdami jokių kitų jo ypatybės parametrų ir be kitų šalutinių pasekmių. Ypatybė Žymė yra naudinga, kai norite patikrinti formos, ataskaitos, duomenų prieigos puslapio, sekcijos arba valdiklio, kuris buvo perduotas kaip procedūros kintamasis, tapatybę.

Pavyzdys

Toliau pateiktame pavyzdyje Žymės ypatybė naudojama pasirinktiniams pranešimams apie formos valdiklius rodyti. Kai įvesties vieta yra ant valdiklio, aprašomasis tekstas rodomas etiketės valdiklyje pavadinimu lblMessage. Jūs turite nurodyti pranešimo tekstą nustatydami kiekvieno valdiklio Žymės ypatybę kaip trumpą teksto eilutę. Kai įvesties vieta perkeliama ant valdiklio, jo Žymės ypatybė priskiriama etiketės valdiklio Antraštės ypatybei. Šiame pavyzdyje parodytas aprašomasis teksto laukelio txtDescription ir komandos mygtuko cmdButton tekstas formoje.

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