Compléments pour Microsoft Access

http://access.fr.free.fr/

Modifier la barre de titre (Base de données)

Description 

Cette fonction permet de modifier la barre de titre de l'application Access.

 
Syntaxe 

EditTitleApp (strTitle)

La syntaxe de la fonction EditTitleApp comprend l'élément suivant :

ElémentsDescription
strTitleExpression de chaîne correspondant au texte que l'on souhaite mettre dans la barre de titre d'Access.
 
Exemple 

Function EditTitleApp_EXE()
    EditTitleApp "Complément pour Access 97 - Utilisateur connecté : " & CurrentUser
End Function

Avec cet exemple, on peut voir comment afficher une barre de titre avec en plus le nom de l'utilisateur en cours qui a ouvert la base de données.

 
Code de la fonction 


 

Public Function EditTitleApp(strTitle As String)

Dim db As Database, prp As Property
Const conErrPropNonTrouvée = 3270

On Error GoTo Err_EditTitleApp

Set db = CurrentDb
db.Properties!AppTitle = strTitle
Application.RefreshTitleBar
db.Close: Set db = Nothing
Exit Function

Err_EditTitleApp:
If Err.Number = conErrPropNonTrouvée Then
    Set prp = db.CreateProperty("AppTitle", dbText, strTitle)
    db.Properties.Append prp
    Set prp = Nothing
Else
    MsgBox "Erreur : " & Err.Number & vbCrLf & Err.Description
End If
Resume Next

End Function