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

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

Синтаксис

выражение. Тег

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

Примечания

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

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

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

Пример

В следующем примере свойство Tag используется для отображения пользовательских сообщений об элементах управления в форме. Когда фокус находится на элементе управления, описательный текст отображается в элементе управления "Название" с именем lblMessage. Текст сообщения указывается путем присвоения свойству Tag для каждого элемента управления короткой текстовой строки. Когда фокус перемещается на элемент управления, его свойство Tag назначается свойству Caption элемента управления label.

В этом примере отображается описательный текст для текстового поля 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 и обратная связь.