Compartir a través de

Método Application.RefreshTitleBar (Access)

  • Artículo

El método RefreshTitleBar actualiza la barra de título de Microsoft Access después de que se ha establecido la AppTitle o la propiedad AppIcon en Visual Basic.

Sintaxis

expresión. RefreshTitleBar

expresión Variable que representa un objeto Application.

Valor devuelto

Nothing

Comentarios

Por ejemplo, puede cambiar el título en la barra de título de Microsoft Access a "Base de datos de contactos" estableciendo la propiedad AppTitle.

Las propiedades AppTitle y AppIcon permiten personalizar la aplicación cambiando el título y el icono que aparecen en la barra de título de Access. La barra de título no se actualiza automáticamente después de establecer estas propiedades. Para que aparezca el cambio en la barra de título, debe usar el método RefreshTitleBar .

Nota:

En una base de datos de Access, puede restablecer las propiedades AppTitle y AppIcon a sus valores predeterminados eliminándolas de la colección Properties que representa la base de datos actual. Después de eliminar estas propiedades, debe usar el método RefreshTitleBar para restaurar los valores predeterminados de Access a la barra de título.

Si la ruta de acceso al icono especificado por la propiedad AppIcon no es válida, no se reflejarán cambios en la barra de título al llamar a este método.

Ejemplo:

En el siguiente ejemplo se establece la propiedad AppTitle de la base de datos actual y se aplica el método RefreshTitleBar para actualizar la barra de título.

Sub ChangeTitle() 
 Dim obj As Object 
 Const conPropNotFoundError = 3270 
 
 On Error GoTo ErrorHandler 
 ' Return Database object variable pointing to 
 ' the current database. 
 Set dbs = CurrentDb 
 ' Change title bar. 
 dbs.Properties!AppTitle = "Contacts Database" 
 ' Update title bar on screen. 
 Application.RefreshTitleBar 
 Exit Sub 
 
ErrorHandler: 
 If Err.Number = conPropNotFoundError Then 
 Set obj = dbs.CreateProperty("AppTitle", dbText, "Contacts Database") 
 dbs.Properties.Append obj 
 Else 
 MsgBox "Error: " & Err.Number & vbCrLf & Err.Description 
 End If 
 Resume Next 
End Sub

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.