全部显示

用于存储 Microsoft Access 应用程序所需的、有关窗体、报表、数据访问页、节或控件的额外信息。String 型，可读写。

expression.Tag

expression     必需。返回“应用于”列表中的一个对象的表达式。

说明

可以为该属性输入一个长达 2048 个字母的字符串表达式。默认设置是零长度字符串(" ")。

可以使用对象的属性表、宏或 Visual Basic 设置该属性。

与其他属性不同的是，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