Hinweis
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, sich anzumelden oder das Verzeichnis zu wechseln.
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, das Verzeichnis zu wechseln.
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.