Propriedade Tag

Aplica-se a

Armazena informações adicionais sobre um formulário, relatório, página de acesso a dados, secção ou controlo de que uma aplicação do Microsoft Office Access 2007 necessita. Cadeia de leitura/escrita.

expressão.Marca

expressão Obrigatório. Uma expressão que devolve um dos objetos na lista Aplica-se A.

Observações

Pode introduzir uma expressão de cadeia com um máximo de 2048 carateres. A predefinição é uma cadeia de comprimento zero (" ").

Pode definir esta propriedade ao utilizar a folha de propriedadesdo objeto, uma macro ou um código VBA (Visual Basic for Applications).

Ao contrário de outras propriedades, a definição de propriedade Marca não afeta nenhum dos atributos de um objeto.

Pode utilizar esta propriedade para atribuir uma cadeia de identificação a um objeto sem afetar nenhuma das suas outras definições de propriedade ou sem causar outros efeitos secundários. A propriedade Marca é útil quando precisa de verificar a identidade de um formulário, relatório, página de acesso a dados, secção ou controlo que é transmitido como uma variável para um procedimento.

Exemplo

O exemplo seguinte utiliza a propriedade Marca para apresentar mensagens personalizadas sobre controlos num formulário. Quando um controlo tem o foco, o texto descritivo é apresentado num controlo de etiqueta denominado lblMessage. Pode especificar o texto da mensagem ao definir a propriedade Marca de cada controlo como uma cadeia de texto breve. Quando um controlo recebe o foco, a respetiva propriedade Marca é atribuída à propriedade Legenda do controlo de etiqueta. Este exemplo apresenta o texto descritivo de uma caixa de texto denominada txtDescription e um botão de comando com o nome cmdButton num 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