Proprietà Tag

Si applica a

Memorizza le informazioni aggiuntive su una maschera, un report, una pagina di accesso ai dati, una sezione o un controllo richiesti da un'applicazione di Microsoft Office Access 2007. Oggetto String di lettura/scrittura.

espressione.Tag

espressione Obbligatorio. Espressione che restituisce uno degli oggetti inclusi nell'elenco Si applica a.

Osservazioni

È possibile immettere un'espressione stringa fino a 2048 caratteri. L'impostazione predefinita è stringa di lunghezza zero (" ").

È possibile impostare questa proprietà usando la finestra delle proprietà dell'oggetto, una macro o il codice di Visual Basic, Applications Edition (VBA).

A differenza di altre proprietà, l'impostazione della proprietà Tag non influisce sugli attributi dell'oggetto.

È possibile usare questa proprietà per assegnare una stringa di identificazione a un oggetto senza alcun impatto sulle impostazioni di altre proprietà o provocare altri effetti collaterali. La proprietà Tag è utile quando è necessario verificare l'identità di una maschera, un report, una pagina di accesso ai dati, una sezione o un controllo che viene passato come variabile a una procedura.

Esempio

L'esempio seguente usa la proprietà Tag per visualizzare messaggi personalizzati sui controlli in una maschera. Quando un controllo ha lo stato attivo, viene visualizzato testo descrittivo in un controllo etichetta denominato lblMessage. Specificare il testo del messaggio, impostare la proprietà Tag per ogni controllo in una stringa di testo breve. Quando un controllo riceve lo stato attivo, la proprietà Tag viene assegnata alla proprietà .Etichetta del controllo etichetta. Questo esempio mostra il testo descrittivo per una casella di testo denominata txtDescription e un pulsante di comando denominato cmdButton in una maschera.

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