Application.AppTitle-Eigenschaft (Access)

Artikel
04/07/2023

Verwenden Sie die AppTitle-Eigenschaft , um den Text anzugeben, der in der Titelleiste der Anwendungsdatenbank angezeigt wird. Sie können beispielsweise die AppTitle-Eigenschaft verwenden, um anzugeben, dass die Zeichenfolge "Inventory Control" in der Titelleiste Ihrer Bestandssteuerungs-Datenbankanwendung angezeigt wird.

Syntax

Ausdruck. 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 Zugriffsoptionen . Sie können diese Eigenschaft auch mithilfe eines Makros oder 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 der AccessObjectProperties-Auflistung des CurrentProject-Objekts mithilfe der Add-Methode 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 sofort wirksam, nachdem sie im Code festgelegt wurde (sofern der Code die RefreshTitleBar-Methode enthält) oder das Dialogfeld Zugriffsoptionen geschlossen wird.

Beispiel

Das folgende Beispiel zeigt, wie Sie die Eigenschaften AppIcon und AppTitle in einer Microsoft Access-Datenbank ändern. 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.

Freigeben über