Discussion :

[Gabout]

Bonjour,

Je ne parviens pas à supprimer toutes les barres de menus d'accès.
Au démarrage de l'application j'ai écrit

Code :

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

1
2
3
4
Dim i As Integer
For i = 1 To Application.CommandBars.Count
    DoCmd.ShowToolbar Application.CommandBars.Item(i).Name, acToolbarNo
Next

... et au démarrage la barre de menus est toujours là.

Je peux très bien la supprimer avant de fermer l'application manuellement, elle revient systématiquement. Une idée peut être, je suppose ne pas être le seul à avoir ce genre "d'incompréhension" !

[Invité]

Bonjour

Un peu de lecture.

Il faut que tu parcours la collection des barres de commandes.

Code :

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

1
2
3
4
Dim cmb As Office.CommandBar
For Each cmb In Application.CommandBars
    cmb.Enabled = False
Next cmb

N'oublie pas de cocher la référence MS Office. Plus d'infos ici : Personnaliser vos barres de commandes dans Access

Dans cet article tu trouveras comment personnaliser en fonction du type de barre, etc... Toutes les propriétés les plus intéressantes sont expliquées.

Starec

[Gabout]

Bonjour,

... et merci de ton aide.