Propriedade Tag

Aplicável a

Objeto BoundObjectFrame	Objeto Image	Objeto OptionGroup	Objeto SubForm
Objeto CheckBox	Objeto Label	Objeto Page	Coleção TabControl
Objeto ComboBox	Objeto Line	Objeto PageBreak	Objeto TextBox
Objeto CommandButton	Objeto ListBox	Objeto Rectangle	Objeto ToggleButton
Objeto CustomControl	Objeto ObjectFrame	Objeto Report
Objeto Form	Objeto OptionButton	Objeto Section

Armazena informações extras sobre um formulário, relatório, página de acesso a dados, seção ou controle necessário por um aplicativo access. Cadeira de caracteres de leitura/gravação.

expressão.Tag

Expressão Necessário. Uma expressão que retorna um dos objetos na lista Aplica-se a.

Comentários

Você pode inserir uma expressão de cadeia de caracteres de até 2048 caracteres. A configuração padrão é uma cadeia de caracteres de comprimento zero (" ").

Você pode definir essa propriedade usando a folha de propriedades do objeto, uma macro ou um código VBA (Visual Basic for Applications).

Ao contrário de outras propriedades, a configuração de propriedade Tag não afeta nenhum dos atributos do objeto.

Você pode usar esta propriedade para atribuir uma cadeia de caracteres de identificação a um objeto sem afetar as suas outras configurações de propriedade ou causando outros efeitos colaterais. A propriedade Tag é útil quando você precisa verificar a identidade de um formulário, relatório, página de acesso a dados, seção ou controle que é passado como uma variável para um procedimento.

Exemplo

O exemplo a seguir usa a propriedade Tag para exibir mensagens personalizadas sobre controles em um formulário. Quando um controle tem o foco, o texto descritivo é exibido em um controle de rótulo chamado lblMessage. Especifique o texto da mensagem, definindo a propriedade Tag para cada controle como uma cadeia de texto curto. Quando um controle recebe o foco, sua propriedade Tag é atribuída à propriedade Caption do controle do rótulo. Este exemplo exibe o texto descritivo de uma caixa de texto chamada txtDescription e um botão de comando nomeado cmdButton em um formulário.

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