Compartilhar via


Propriedade Page.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.

Sintaxe

expressão. Tag

Expressão Uma variável que representa um objeto Page .

Comentários

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.

Exemplo

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

Suporte e comentários

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.