Discussion :

[jolemoine]

Bonjour a tous,
voilà mon petit problème, qui je pense ne doit pas être trop difficile à résoudre, mais pour ma part n'étant pas encore assez dégourdit dans Access, je bute donc sur un os.

venons en au fait, j'écrit une petite application pour le travail, donc sur la machine du boulot, et je désire faire disparaitre lors de son utilisation de l'application les ToolsBars Access.
chronologiquement au début du projet j'avais un PC avec Windows 2000 et office 2000. bon j'ai utilisé la FAQ et j'ai trouvé le code qui allais bien, c'est à dire:

(de Gaël Donat)

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

cela marche très bien sur Access 2000, depuis je suis passé à une machine avec Windows XP Pro SP1 et Access 2002 SP3 et là cela ne fonctionne plus.
la base a été convertie au format 2002-2003, le reste fonctionne, tout le code marche, car il y en a pas mal, et la FAQ, les exemples Microsoft mon beaucoup aidé sauf pour ces Toolbars.

je demande donc un peu d'aide auprès de la communauté des développeurs.

merci.

[cbleas]

Bonjour,
Je pense que tu as la solution simple dans les options de démarrage ou tu peux choisir si tu veux ou non l'affichage des toolbars.

sinon en mettant

For i = 1 To Application.CommandBars.Count
Application.CommandBars(i).visible=false
Next

[jolemoine]

Bonsoir cbleas,

ton code marche dans certain cas, enfin avec certain PC, bon d'autre part on m'a conseillé de faire un test pour savoir si la CommandBar est active ou non, boucle IF.
cela marche normalement depuis.
merci de ton aide.