Discussion :

[MandeDauph]

Bonjour à tous,

J'ai masqué le volet de navigation dans les options de la base de données. Malheureusement quand je lie une table, le volet de navigation réapparait.
Comment puis-je faire pour le masquer via du code VBA ?

J'ai vu des choses comme :
Comment afficher ou masquer la fenêtre de base de données ?
Comment faire apparaître ou disparaître la barre des menus par le code ?

Mais je n'arrive pas à cacher le volet de navigation pour autant
Quelqu'un a une idée ?

Merci à tous pour votre aide.
Mande

[jimbolion]

MandeDauph

Peut être un début de réponse ici :

http://www.developpez.net/forums/d92...et-navigation/

et ici

http://www.developpez.net/forums/d10...et-navigation/

Jimbolion

[MandeDauph]

jimbolion,
Merci pour tes liens.
C'est exactement les files de discussion que j'avais trouvé sur internet avant de faire mon poste.
Malheureusement, bien que les discussions soient résolues, aucune solution n'est proposée

[jimbolion]

MandeDauph,

Le masquage du volet de navigation est disponible dans les options de ton projet et options de navigation :



Tu peux si tu le souhaites, créer une fonction qui te permet d'activer ou ré-activer cette options sans effectuer tes changements dans les options grâce à ce code :

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
Function Afficher_Masquer()
On Error GoTo err_Afficher_Masquer
 
    Dim oDb As DAO.Database
    Set oDb = CurrentDb
 
    If oDb.Properties("StartUpShowDBWindow") = False Then
        'Change la valeur
        oDb.Properties("StartUpShowDBWindow") = True
        'Ferme la base de données
        'Application.Quit
    End If
 
fin_Afficher_Masquer:
    Exit Function
err_Afficher_Masquer:
    If err.Number = 3270 Then
        oDb.Properties.Append oDb.CreateProperty("StartUpShowDBWindow", dbBoolean, False)
    End If
    Resume fin_Afficher_Masquer
End Function

Jimbolion

[MandeDauph]

jimbolion,

Tout d'abord merci pour ton aide

J'ai bien coché cette case dans les options de mon projet.
L'onglet de navigation disparait convenablement. Seulement dès que via mes formules je fais une liaison avec un tableur Excel, l'onglet réapparait.

J'ai essayé d'utiliser ton code mais rien ne se passe
A quoi correspond oDb.Properties("StartUpShowDBWindow") = False normalement ? Quel est son rôle ?

MandeDauph

[MandeDauph]

DISCUSSION CLOSE, SOLUTION TROUVEE

J'ai reçu à cacher l'onget de navigation en utilisation c'est deux lignes de code :

Code :

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

1
2
DoCmd.NavigateTo "acNavigationCategoryObjectType"
    DoCmd.RunCommand acCmdWindowHide

Encore merci à jimbolion pour son aide !

MandeDauph