Table of contents
TOC
Collapse the table of content
Expand the table of content

Application.RefreshTitleBar Method (Access)

office 365 dev account|Last Updated: 6/12/2017
|
1 Contributor

The RefreshTitleBar method refreshes the Microsoft Access title bar after the AppTitle or AppIcon property has been set in Visual Basic.

Syntax

expression. RefreshTitleBar

expression A variable that represents an Application object.

Return Value

Nothing

Remarks

For example, you can change the caption in the Microsoft Access title bar to "Contacts Database" by setting the AppTitle property.

The AppTitle and AppIcon properties enable you to customize your application by changing the title and icon that appear in the Microsoft Access title bar. The title bar is not automatically updated after you have set these properties. In order for the change to the title bar to appear, you must use the RefreshTitleBar method.

Note In a Microsoft Access database, you can reset the AppTitle and AppIcon properties to their default value by deleting them from the Properties collection representing the current database. After you delete these properties, you must use the RefreshTitleBar method to restore the Microsoft Access defaults to the title bar.

It the path to the icon specified by the AppIcon property is invalid, then no changes will be refled in the title bar when you call this method.

Example

The following example sets the AppTitle property of the current database and applies the RefreshTitleBar method to update the title bar.

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

See also

Concepts

Application Object

© 2017 Microsoft