Changer la barre de titre de la fenêtre principale d’Access 

 wpe2.gif (1107 octets)exemple.mdb

Pour modifier le titre de la fenêtre d’Access, il est nécessaire de faire appel aux fonctions API SetWindowText et FindWindow .

Pour utiliser ces fonctions, il faut les déclarer dans un module Access de la manière suivante :

Declare Function FindWindow% Lib "User" (ByVal lpClassName As Any, Ã
ByVal lpWindowName As Any)
Declare Sub SetWindowText Lib "User" (ByVal hWnd%, ByVal lpString$)

 

La fonction SetCaption utilise ces deux fonctions pour modifier le titre de la fenêtre Access :

Function SetCaption (Titre As String)
'but : Change la mention "Microsoft Access" de la barre de titre par un autre intitulé
'Titre : Texte à afficher sur la barre de titre
Dim hWnd%
'Détermine le handle de la fenêtre principale d'Access
'OMain est le nom "interne" de cette fenêtre
hWnd% = FindWindow%("OMain", 0&)
Call SetWindowText(hWnd%, Titre)
End Function