Méthode Application.RefreshTitleBar (Access)

La méthode RefreshTitleBar actualise la barre de titre Microsoft Access après que la AppTitle ou AppIcon a été défini dans Visual Basic.

Syntaxe

expression. RefreshTitleBar

expressionUne variable qui représente un objetApplication.

Valeur renvoyée

Aucune

Remarques

Par exemple, vous pouvez modifier la légende dans la barre de titre Microsoft Access vers « Contacts Database » en définissant la propriété AppTitle.

Les propriétés AppTitle et AppIcon vous permettent de personnaliser votre application en modifiant le titre et l’icône qui apparaissent dans la barre de titre Access. La barre de titre n’est pas automatiquement mise à jour après avoir défini ces propriétés. Pour que la modification de la barre de titre s’affiche, vous devez utiliser la méthode RefreshTitleBar .

Remarque

Dans une base de données Access, vous pouvez rétablir les valeurs par défaut des propriétés AppTitle et AppIcon en les supprimant de la collection Properties représentant la base de données active. Après avoir supprimé ces propriétés, vous devez utiliser la méthode RefreshTitleBar pour restaurer les valeurs par défaut d’Access dans la barre de titre.

Si le chemin d’accès à l’icône spécifiée par la propriété AppIcon n’est pas valide, aucune modification n’est répercutée dans la barre de titre lorsque vous appelez cette méthode.

Exemple

L'exemple suivant définit la propriété AppTitle de la base de données en cours et applique la méthode RefreshTitleBar pour mettre à jour la barre de titre.

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

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.