Application.RefreshTitleBar-Methode (Access)

Die RefreshTitleBar-Methode aktualisiert die Microsoft Access-Titelleiste, nachdem die AppTitle - oder AppIcon-Eigenschaft in Visual Basic festgelegt wurde.

Syntax

Ausdruck. RefreshTitleBar

expression Eine Variable, die ein Application-Objekt darstellt.

Rückgabewert

Nichts

Bemerkungen

Sie können beispielsweise die Beschriftung in der Microsoft Access-Titelleiste in "Contacts Database" ändern, indem Sie die AppTitle-Eigenschaft festlegen.

Mit den Eigenschaften AppTitle und AppIcon können Sie Ihre Anwendung anpassen, indem Sie den Titel und das Symbol ändern, die in der Access-Titelleiste angezeigt werden. Die Titelleiste wird nicht automatisch aktualisiert, nachdem Sie diese Eigenschaften festgelegt haben. Damit die Änderung an der Titelleiste angezeigt wird, müssen Sie die RefreshTitleBar-Methode verwenden.

Hinweis

In einer Access-Datenbank können Sie die Eigenschaften AppTitle und AppIcon auf ihre Standardwerte zurücksetzen, indem Sie sie aus der Properties-Auflistung löschen, die die aktuelle Datenbank darstellt. Nachdem Sie diese Eigenschaften gelöscht haben, müssen Sie die RefreshTitleBar-Methode verwenden, um die Access-Standardwerte auf der Titelleiste wiederherzustellen.

Wenn der Pfad zu dem von der AppIcon-Eigenschaft angegebenen Symbol ungültig ist, werden keine Änderungen in der Titelleiste angezeigt, wenn Sie diese Methode aufrufen.

Beispiel

Im folgenden Beispiel wird der AppTitle-Eigenschaft der aktuellen Datenbank ein Wert zugewiesen, und die RefreshTitleBar-Methode wird zur Aktualisierung der Titelleiste aufgerufen.

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

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.