Attiecas uz
|
Objekts BoundObjectFrame |
Objekts Image |
Objekts OptionGroup |
Objekts SubForm |
|---|---|---|---|
|
Objekts CheckBox |
Objekts Label |
Objekts Page |
Kolekcija TabControl |
|
Objekts ComboBox |
Objekts Line |
Objekts PageBreak |
Objekts TextBox |
|
Objekts CommandButton |
Objekts ListBox |
Objekts Rectangle |
Objekts ToggleButton |
|
Objekts CustomControl |
Objekts ObjectFrame |
Objekts Report |
|
|
Objekts Form |
Objekts OptionButton |
Objekts Section |
Saglabā papildinformāciju par forma, atskaite, datu piekļuves lappuse, sadaļa vai vadīkla, kas nepieciešama Access lietojumprogrammai. Lasāma/rakstāma String.
izteiksme.Tag
expression Obligāti. Izteiksme, kas atgriež vienu no objektiem sarakstā Attiecas uz.
Piezīmes
Varat ievadīt virknes izteiksme līdz 2048 rakstzīmes garu. Noklusējuma iestatījums ir nulles garuma virkne (" ").
Varat iestatīt šo rekvizītu, izmantojot objekta rekvizītu lapa, makro vai Visual Basic for Applications (VBA) kodu.
Atšķirībā no citiem rekvizītiem, rekvizīta Tag iestatījums neietekmē nevienu objekta atribūtu.
Varat izmantot šo rekvizītu, lai objektam piešķirtu identifikācijas virkni, neietekmējot citus rekvizītu iestatījumus vai neizraisot citus blakus efektus. Rekvizīts Tag ir noderīgs, ja nepieciešams pārbaudīt tādas formas, atskaites, datu piekļuves lapas, sadaļas vai vadīklas identitāti, kas procedūrā tiek ieviesta kā mainīgais.
Piemērs
Šajā piemērā rekvizīts Tag izmantots, lai attēlotu pielāgotus ziņojumus par formas vadīklām. Ja vadīkla atrodas fokusā, etiķetes vadīklā ar nosaukumu lblMessage tiek parādīts apraksts. Varat norādīt ziņojuma tekstu, iestatot rekvizītu Tag katrai vadīklai kā īsu teksta virkni. Kad fokuss atrodas vadīklā, tā rekvizīts Tag tiek piešķirts etiķetes vadīklas rekvizītam Caption. Šajā piemērā redzams formas tekstlodziņa txtDescription un komandpogas cmdButton apraksts.
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
