Discussion :

[Bonero]

Bonjour a tous,
Je me demande comment faire pour afficher le nom de ma BDD quelque part sur la barrre de menu; juste a cote de la ou est ecrit “Microsoft Access”.
Merci de me repondre.
Bonero.
ps je ne suis pas sur d avoir pose ma question dans le non forum...

[nico84]

Bonjour,

Par exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

CurrentDb.Properties("AppTitle") = "Ma petite entreprise"

[FreeAccess]

Bonjour à tous,

Ou le définir directement dans les options d'ACCESS....

Options Access > Base de données active > Titre de l'application

[Bonero]

merci pour vos reponses.
je pense que la reponse FreeAccess est celle que je cherchais mais je veux la barre affiche le nom sous lequel j’ai sauvegarde ma BDD.
Merci.

[Domi2]

Bonsoir,

La solution de FreeAccess suppose que le nom de ton application ne change pas.

Si tu modifies le nom lors de la sauvegarde, il te faut utiliser la méthode de nico84, en récupérant auparavant le nom de l'application.

Extrait de la FAQ :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Public Sub DefinirTitreApplication() 
 
On Error GoTo err_gestion 
 
    Dim prp As DAO.Property 
    Dim str As String 
 
    'Nom de l'application    
    str = Right(Application.CurrentProject.Path, Len(Application.CurrentProject.Path) - (InStrRev(Application.CurrentProject.Path, "\"))) 
 
    CurrentDb.Properties("AppTitle") = str 
    RefreshTitleBar 
 
sortie: 
    Exit Sub 
 
err_gestion: 
    If Err.Number = 3270 Then 
        Set prp = CurrentDb.CreateProperty("AppTitle", dbText, str) 
        CurrentDb.Properties.Append prp 
        Resume 
    End If 
 
End Sub

Domi2