Применение
|
Объект BoundObjectFrame |
Объект Image |
Объект OptionGroup |
Объект SubForm |
|
Объект CheckBox |
Объект Label |
Объект Page |
Объект TabControl |
|
Объект ComboBox |
Объект Line |
Объект PageBreak |
Объект TextBox |
|
Объект CommandButton |
Объект ListBox |
Объект Rectangle |
Объект ToggleButton |
|
Объект CustomControl |
Объект ObjectFrame |
Объект Report |
|
|
Объект Form |
Объект OptionButton |
Объект Section |
Хранит дополнительные сведения о форма, отчет, страница доступа к данным, раздел или элемент управления, необходимых приложению Microsoft Office Access 2007. Возвращает доступное для чтения и записи значение типа String.
выражение.Tag
Выражение Обязательный. Выражение, возвращающее один из объектов в списке Применяется к.
Замечания
Можно ввести строковое выражение, которое содержит до 2048 знаков. По умолчанию используется пустая строка (" ").
Это свойство можно задать с помощью страницы свойств объекта, макроса или кода Visual Basic для приложений (VBA).
В отличие от других свойств, значение свойства Tag (Тег) не влияет на атрибуты объекта.
Это свойство используется для назначения строки идентификатора объекту без воздействия на любые другие значения его свойств или других побочных эффектов. Свойство Tag удобно использовать для проверки идентификаторов формы, отчета, страницы доступа к данным, раздела или элемента управления, передаваемых в процедуру в качестве переменной.
Пример
В следующем примере свойство Tag используется для отображения пользовательских сообщений об элементах управления в форме. Когда элемент управления получает фокус, в элементе управления надписи отображается текстовое описание lblMessage. Для свойства Tag каждого элемента управления задается короткая текстовая строка, определяющая текст этого сообщения. Когда элемент управления получает фокус, его свойство Tag назначается свойству Caption (Подпись) элемента управления надписи. В этом примере в форме отображается текстовое описание для поля txtDescription и кнопки 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
