Tag (propiedad)

Se aplica a

Almacena información adicional sobre un formulario, informe, página de acceso a datos, sección o control que necesita una aplicación de Microsoft Office Access 2007. Valor String de lectura y escritura.

expresión.Tag

expresión Requerido. Una expresión que devuelve uno de los objetos de la lista Se aplica a.

Observaciones

Puede especificar una expresión de cadena de hasta 2048 caracteres. La configuración predeterminada es una cadena de longitud cero (" ").

Puede establecer esta propiedad mediante la hoja de propiedades del objeto, una macro o código de Visual Basic para Aplicaciones (VBA).

A diferencia de otras propiedades, el valor de la propiedad Tag no afecta a ninguno de los atributos del objeto.

Puede usar esta propiedad para asignar una cadena de identificación a un objeto sin afectar a ninguno de los valores de otras propiedades ni causar efectos secundarios. La propiedad Tag es útil cuando necesita comprobar la identidad de un formulario, informe, página de acceso a datos, sección o control que se pasa como una variable a un procedimiento.

Ejemplo

En el siguiente ejemplo se usa la propiedad Tag para mostrar mensajes personalizados sobre los controles de un formulario. Cuando un control tiene el foco, se muestra texto descriptivo en un control de etiqueta denominado lblMessage. Para especificar el texto del mensaje se establece la propiedad Tag de cada control en una cadena de texto corto. Cuando un control recibe el foco, su propiedad Tag se asigna a la propiedad Caption del control de etiqueta. En este ejemplo se muestra el texto descriptivo de un cuadro de texto denominado txtDescription y un botón de comando denominado cmdButton en un formulario.

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