Propriété Application.AppTitle (Access)

Article
04/07/2023

Utilisez la propriété AppTitle pour spécifier le texte qui apparaît dans la barre de titre de la base de données d’application. La propriété AppTitle vous permet, par exemple, de préciser que la chaîne « Contrôle d'inventaire » doit apparaître dans la barre de titre de votre application de base de données Contrôle d'inventaire.

Syntaxe

expression. AppTitle

expressionUne variable qui représente un objetApplication.

Paramètre

La propriété AppTitle est une expression chaîne contenant le texte qui doit apparaître dans la barre de titre.

Le moyen le plus simple de définir cette propriété consiste à utiliser l’option Titre de l’application dans la boîte de dialogue Options d’accès . Vous pouvez également définir cette propriété à l’aide d’une macro ou de Visual Basic.

Pour définir la propriété AppTitle au moyen d'une macro ou de Visual Basic, vous devez d'abord la définir dans la boîte de dialogue Options Access ou créer la propriété de l'une des manières suivantes :

Dans une base de données Microsoft Access, vous pouvez l'ajouter à l'aide de la méthode CreateProperty et l'annexer à la collection Properties de l'objet Database.
Dans un projet Microsoft Access (.adp), vous pouvez l’ajouter à la collection AccessObjectProperties de l’objet CurrentProject à l’aide de la méthode Add .

Vous devez également utiliser la méthode RefreshTitleBar pour rendre les modifications visibles immédiatement.

Remarques

Si cette propriété n'est pas paramétrée, la chaîne « Microsoft Access » apparaît dans la barre de titre.

Ce paramètre de propriété prend effet immédiatement après sa définition dans le code (tant que le code inclut la méthode RefreshTitleBar ) ou que la boîte de dialogue Options Access est fermée.

Exemple

L’exemple suivant montre comment modifier les propriétés AppIcon et AppTitle dans une base de données Microsoft Access. Si ces propriétés n'ont pas déjà été définies et créées, vous devez les créer et les ajouter à la collection Properties en utilisant la méthode CreateProperty.

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

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.

Partager via