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ários por um aplicativo access. Cadeia 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