OVH Cloud OVH Cloud

Effacement de la barre de menu par VisualBasic

1 réponse
Avatar
Coujou
Bonjour,

J'essaie de supprimer toutes les barres de menu sous Access 2003 par du
code VB (pour pouvoir laisser la barre de menu pour certains
utilisateurs). J'ai la commande :

DoCmd.ShowToolbar "Menu Bar", acToolbarNo

Cette solution =E0 l'air de bien fonctionner mais seulement s'il y a au
moins une autre barre de menu encore ouverte. En clair, tant que je
laisse l'option de d=E9marrage "Afficher les barres d'outils
int=E9gr=E9es" coch=E9e, je peux effacer la barre de menu mais il reste
les autres barres d'outil.

J'ai bien essay=E9 de tout supprimer avec les lignes suivantes mais =E7a
fair crasher Access.

Dim i As Integer
For i =3D 1 To Application.CommandBars.Count
DoCmd.ShowToolbar Application.CommandBars.item(i).name, acToolbarNo
Next

Est-ce que j'ai rat=E9 quelque chose ou que quelqu'un a une solution

Merci

1 réponse

Avatar
Alan Cossey
Application.MenuBar = ""

?

Alan Cossey


"Coujou" wrote in message
news:
Bonjour,

J'essaie de supprimer toutes les barres de menu sous Access 2003 par
du
code VB (pour pouvoir laisser la barre de menu pour certains
utilisateurs). J'ai la commande :

DoCmd.ShowToolbar "Menu Bar", acToolbarNo

Cette solution à l'air de bien fonctionner mais seulement s'il y a au
moins une autre barre de menu encore ouverte. En clair, tant que je
laisse l'option de démarrage "Afficher les barres d'outils
intégrées" cochée, je peux effacer la barre de menu mais il reste
les autres barres d'outil.

J'ai bien essayé de tout supprimer avec les lignes suivantes mais ça
fair crasher Access.

Dim i As Integer
For i = 1 To Application.CommandBars.Count
DoCmd.ShowToolbar Application.CommandBars.item(i).name,
acToolbarNo
Next

Est-ce que j'ai raté quelque chose ou que quelqu'un a une solution

Merci