Access VBA教程:Tag属性

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

expression.Tag

expression   必需。返回“Applies To”列表中的一个对象的表达式。

说明

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

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

与其他属性不同的是,Tag属性设置不会影响对象的其他属性。

使用该属性可为对象指定一个标识字符串,而不会对其他属性设置造成影响或产生副作用。当您需要检查作为变量传给过程的窗体、节、报表、数据访问页或控件的标识时,Tag属性是非常有用的。

VBA示例

下面的示例使用 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

上页:Access VBA教程:TabStop属性 下页:Access VBA教程:TargetBrowser属性

Access VBA教程:Tag属性

Access VBA教程:TargetBrowser属性 Access VBA教程:Text属性
Access VBA教程:TextAlign属性 Access VBA教程:TextToDisplay属性
Access VBA教程:TimerInterval属性 Access VBA教程:Toolbar属性
Access VBA教程:Top属性 Access VBA教程:TopMargin属性
Access VBA教程:TopValues属性 Access VBA教程:Transparent属性
Access VBA教程:TripleState属性 Access VBA教程:Type属性
Access VBA教程:UnderlineHyperlinks属性 Access VBA教程:UndoBatchEdit属性
Access VBA教程:UniqueRecords属性 Access VBA教程:UniqueTable属性
Access VBA教程:UniqueValues属性 Access VBA教程:UpdateOptions属性
Access VBA教程:UseDefaultPrinter属性 Access VBA教程:UseLongFileNames属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号