Discussion :

[PP57]

Bonjour,

Dans une appli, au démarrage, je désactive les barres d'outils ...

Code :

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

1
2
3
4
5
6
 
Sub DesActiverBarresOutils()
    For i = 1 To Application.CommandBars.Count
        DoCmd.ShowToolbar Application.CommandBars.Item(i).Name, acToolbarNo
    Next
End Sub

et en quittant l'appli je les réactive ...

Code :

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

1
2
3
4
5
6
 
Sub ActiverBarresOutils()
    For i = 1 To Application.CommandBars.Count
        DoCmd.ShowToolbar Application.CommandBars.Item(i).Name, acToolbarWhereApprop
    Next
End Sub

Ensuite, dans n'importe quelle base Access, les barres ne sont plus disponibles et je dois exécuter le code pour les réactiver.

Quelqu'un aurait-il une idée.

Merci d'avance.

[argyronet]

Bonjour,

Il est préférable d'utiliser la méthode:

Code :

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

DoCmd.ShowToolbar ToolBarName, Show

avec les paramètre acToolbarNo
Et sur l'événement du bouton cmdQuit de ton appli, les rétablir avec acToolbarYes

Argy

[PP57]

Sauf erreur (je suis peut-être miro), c'est la méthode que j'ai utilisée !

[argyronet]

Oui, je sais...
Mais de manière générale, il n'est pas utile de faire un For/Next car dans Access, il y a pas loin de 140 CommandBars.
Donc tu stockes dans des String les noms des barres d'outils et comme je te l'ai stipulé, tu fais une procédure générique qui se paramètre avec le Yes ou le No selon le cas (Ouvrir/Quitter) car l'usage de acToolbarWhereApprop ne pourra pas répondre à ta demande puisque tu les a masqué.

acToolbarWhereApprop est plus dédiée aux barres d'outils perso des formulaires et des états bien qu'Access est censé l'appliquer de façon circonstancielle à l'objet affiché, mais bon... J'ai dit "censé"...

Argy