Tag 屬性

全部顯示

用于存儲 Microsoft Access 應(yīng)用程序所需的、有關(guān)窗體、報表、數(shù)據(jù)訪問頁、節(jié)或控件的額外信息。String 型，可讀寫。

expression.Tag

expression     必需。返回“應(yīng)用于”列表中的一個對象的表達式。

說明

可以為該屬性輸入一個長達 2048 個字母的字符串表達式。默認設(shè)置是零長度字符串(" ")。

可以使用對象的屬性表、宏或 Visual Basic 設(shè)置該屬性。

與其他屬性不同的是，Tag 屬性設(shè)置不會影響對象的其他屬性。

使用該屬性可為對象指定一個標識字符串，而不會對其他屬性設(shè)置造成影響或產(chǎn)生副作用。當您需要檢查作為變量傳給過程的窗體、節(jié)、報表、數(shù)據(jù)訪問頁或控件的標識時，Tag 屬性是非常有用的。

示例

下面的示例使用 Tag 屬性來顯示窗體上的控件的自定義信息。當一個控件具有焦點時，在一個名為 lblMessage 的標簽上將出現(xiàn)對該控件的描述文本。通過將每個控件的 Tag 屬性設(shè)為短文本字符串，即可為其指定自定義信息文本。當控件獲得焦點時，它的 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