Propriedade Tag

Aplicável a

Armazena informações adicionais sobre uma formulário, relatório, página de acesso a dados, seção ou controle necessários por um aplicativo Microsoft Office Access 2007. Cadeira de caracteres de leitura/gravação.

expressão.Tag

expressão Obrigatória. Uma expressão que retorna um dos objetos na lista Aplica-se a.

Comentários

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

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

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 denominado 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 mostra o texto descritivo para uma caixa de texto chamada txtDescription e um botão de comando chamado 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