Свойство ToggleButton.Tag (Access)

Статья
04/07/2023

Хранит дополнительные сведения о форме, отчете, разделе или элементе управления, необходимых приложению Microsoft Access. Для чтения и записи, String.

Синтаксис

expression. Тег

Выражение Переменная, представляющая объект ToggleButton .

Замечания

Можно ввести строковое выражение длиной до 2048 символов. По умолчанию используется строка нулевой длины (" ").

В отличие от других свойств, параметр свойства Tag не влияет ни на один из атрибутов объекта.

Используйте это свойство для назначения строки идентификации объекту, не влияя ни на какие из его других параметров свойства или не вызывая других побочных эффектов. Свойство Tag полезно, если необходимо проверить удостоверение формы, отчета, раздела или элемента управления, передаваемого в качестве переменной в процедуру.

Пример

В следующем примере свойство Tag используется для отображения пользовательских сообщений об элементах управления в форме. Когда элемент управления имеет фокус, описательный текст отображается в элементе управления label с именем 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

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.