Rakenduskoht
|
Objekt BoundObjectFrame |
Objekt Image |
Objekt OptionGroup |
Objekt SubForm |
|
Objekt CheckBox |
Objekt Label |
Objekt Page |
Kogum 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 Selection |
Talletab lisateavet Microsoft Office Access 2007 rakenduse nõutava vorm, aruanne, andmepääsuleht, jaotis või juhtelement kohta. Loetav/kirjutatav string.
avaldis.Tag
avaldis Nõutav. Avaldis, mis tagastab loendi Rakenduskoht objekti.
Kommentaarid
Saate sisestada kuni 2048 tähemärki pika stringavaldise. Väikesäte on nullpikkusega string (" ").
Selle atribuudi saate määrata, kasutades objekti atribuudilehte, makrot või Visual Basic for Applications (VBA) koodi.
Erinevalt teistest atribuutidest ei mõjuta atribuudi Tag (Silt) säte ühtki objektiatribuuti.
Seda atribuuti saate kasutada objektile identimisstringi määramisel, mõjutamata objekti muude atribuutide sätteid ja põhjustamata muid kõrvalmõjusid. Atribuut Tag (Silt) on kasulik, kui peate kontrollima protseduuri muutujana esitatud vormi, aruande, andmepääsulehe, jaotise või juhtelemendi identiteeti.
Näide
Järgmises näiteks kasutatakse atribuuti Tag (Silt) vormi juhtelementide kohandatud sõnumite kuvamiseks. Kui fookuses on juhtelement, kuvatakse kirjeldav tekst sildi juhtelemendil lblMessage. Sõnumi teksti saate määrata seades kõigi juhtelementide atribuut Tag (Silt) lühikesele tekstistringile. Kui juhtelement satub fookusesse määratakse selle atribuut Tag (Silt) sildi juhtelemendi atribuudile Caption (Pealdis). Selles näites kuvatakse tekstivälja txtDescription kirjeldav tekst ja vormil olev käsunupp 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
