Propiedad Application.AppTitle (Access)

Use la propiedad AppTitle para especificar el texto que aparece en la barra de título de la base de datos de la aplicación. Por ejemplo, puede utilizar la propiedad AppTitle para especificar que la cadena "Control de inventario" aparezca en su aplicación de base de datos Control de inventario.

Sintaxis

expresión. AppTitle

expresión Variable que representa un objeto Application.

Configuración

La propiedad AppTitle es una expresión de cadena que contiene el texto que va a aparecer en la barra de título.

La manera más fácil de establecer esta propiedad es mediante la opción Título de la aplicación en el cuadro de diálogo Opciones de acceso . También puede establecer esta propiedad mediante una macro o Visual Basic.

Para establecer la propiedad AppTitle mediante una macro o Visual Basic, primero debe configurar la propiedad en el cuadro de diálogo Opciones de Access o crear la propiedad siguiendo estos procedimientos:

• En una base de datos de Microsoft Access, puede agregarla mediante el método CreateProperty y anexarla a la colección Properties del objeto Database.

• En un proyecto de Microsoft Access (.adp), puede agregarlo a la colección AccessObjectProperties del objeto CurrentProject mediante el método Add .

También debe usar el método RefreshTitleBar para que los cambios sean visibles inmediatamente.

Comentarios

Si no se establece esta propiedad, la cadena "Microsoft Access" aparece en la barra de título.

Esta configuración de propiedad surte efecto inmediatamente después de que se establezca en el código (siempre que el código incluya el método RefreshTitleBar ) o se cierre el cuadro de diálogo Opciones de acceso .

Ejemplo:

En el ejemplo siguiente se muestra cómo cambiar las propiedades AppIcon y AppTitle en una base de datos de Microsoft Access. Si las propiedades aún no se han establecido o creado, debe crearlas y anexarlas a la colección Properties usando el método CreateProperty.

Sub cmdAddProp_Click() 
 Dim intX As Integer 
 Const DB_Text As Long = 10 
 intX = AddAppProperty("AppTitle", DB_Text, "My Custom Application") 
 intX = AddAppProperty("AppIcon", DB_Text, "C:\Windows\Cars.bmp") 
 CurrentDb.Properties("UseAppIconForFrmRpt") = 1 
 Application.RefreshTitleBar 
End Sub 
 
Function AddAppProperty(strName As String, _ 
 varType As Variant, varValue As Variant) As Integer 
 Dim dbs As Object, prp As Variant 
 Const conPropNotFoundError = 3270 
 
 Set dbs = CurrentDb 
 On Error GoTo AddProp_Err 
 dbs.Properties(strName) = varValue 
 AddAppProperty = True 
 
AddProp_Bye: 
 Exit Function 
 
AddProp_Err: 
 If Err = conPropNotFoundError Then 
 Set prp = dbs.CreateProperty(strName, varType, varValue) 
 dbs.Properties.Append prp 
 Resume 
 Else 
 AddAppProperty = False 
 Resume AddProp_Bye 
 End If 
End Function

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.