Propriedade Form.Tag (Access)
Armazena informações extras sobre um formulário, relatório, seção ou controle necessitados por um aplicativo do Microsoft Access. Cadeia de caracteres de leitura/gravação.
expressão. Tag
expressão Uma variável que representa um objeto Form.
Você pode inserir uma expressão de cadeia de caracteres com até 2048 caracteres. A configuração padrão é uma cadeia de caracteres de comprimento zero (" ").
Diferentemente de outras propriedades, a configuração da propriedade Tag não afeta qualquer um dos atributos de um objeto.
Use essa propriedade para atribuir uma cadeia de caracteres de identificação a um objeto sem afetar nenhuma de suas outras configurações de propriedade ou causar outros efeitos colaterais. A propriedade Tag é útil quando você precisa verificar a identidade de um formulário, relatório, seção ou controle que é passado como uma variável a um procedimento.
O exemplo a seguir usa a propriedade Tag para exibir mensagens personalizadas sobre controles em um formulário. Quando um controle tiver o foco, o texto descritivo será exibido em um controle de rótulo chamado lblMessage. Você pode especificar o texto da mensagem, definindo a propriedade Tag para cada controle como uma cadeia de caracteres de texto curtas. Quando um controle recebe o foco, sua propriedade Tag é atribuída para a propriedade Caption do controle rótulo.
Esse exemplo exibe o texto descritivo de uma caixa de texto nomeada 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
Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.