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.
Verwenden Sie die AppTitle-Eigenschaft , um den Text anzugeben, der in der Titelleiste der Anwendungsdatenbank angezeigt wird. Beispielsweise können Sie die AppTitle-Eigenschaft verwenden, um anzugeben, dass die Zeichenfolge "Inventory Control" in der Titelleiste Ihrer Inventory Control-Datenbankanwendung angezeigt wird.
Syntax
Ausdruck verwendet werden. AppTitle
expression Eine Variable, die ein Application-Objekt darstellt.
Einstellung
Die AppTitle-Eigenschaft ist ein Zeichenfolgenausdruck, der dem Text, der in der Titelleiste angezeigt werden soll, entspricht.
Die einfachste Möglichkeit zum Festlegen dieser Eigenschaft ist die Verwendung der Option "Anwendungstitel " im Dialogfeld "Access-Optionen ". Sie können diese Eigenschaft auch mithilfe eines Makros oder von Visual Basic festlegen.
Sie können die AppTitle-Eigenschaft mit einem Makro oder Visual Basic festlegen, indem Sie zunächst entweder die Eigenschaft einmalig im Dialogfeld Access-Optionen festlegen oder indem Sie die Eigenschaft auf eine der folgenden Arten erstellen:
In einer Microsoft Access-Datenbank können Sie die Eigenschaft mit der CreateProperty-Methode hinzufügen und anschließend der Properties-Auflistung des Database-Objekts anfügen.
In einem Microsoft Access-Projekt (.adp) können Sie es mit der Add-Methode der AccessObjectProperties-Auflistung des CurrentProject-Objekts hinzufügen.
Sie müssen auch die RefreshTitleBar-Methode verwenden, um alle Änderungen sofort sichtbar zu machen.
Hinweise
Ist diese Eigenschaft nicht definiert, so wird in der Titelleiste die Zeichenfolge "Microsoft Access" angezeigt.
Diese Eigenschaftseinstellung wird unmittelbar nach dem Festlegen im Code wirksam (sofern der Code die RefreshTitleBar-Methode enthält), oder dem Schließen des Dialogfelds Access-Optionen .
Beispiel
Das folgende Beispiel zeigt, wie Sie die AppIcon - und AppTitle-Eigenschaften in einer Microsoft Access-Datenbank ändern können. Wurden diese Eigenschaften noch nicht definiert oder erstellt, so müssen Sie sie neu erstellen und mithilfe der CreateProperty-Methode der Properties-Auflistung anfügen.
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
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.