Discussion :

[texas2607]

salut,
Je vais surement me faire engueuler mais je n'arrive pas à trouver ce que je veux.
J'avais eu il y a pas mal de temps un bout de code afin de cacher la totalité des menus, barres et autre chose de access.
En parametrant la fonction demarrage sur un formulaire (donc il se lance automatiquement) et avec ce fameux code dans le LOAD du formulaire, seul le formulaire etait affiché (en le mettant en fenetre independante) sans rien d'autre concernant access.
Auriez vous ce "bout de code" SVP
Merci

[FreeAccess]

Bonjour,
Et avec l'aide de la F.A.Q., ça donne quoi :
http://access.developpez.com/faq/?pa...#SupprBarrMenu

[texas2607]

Salut,
pour la Faq c'est :

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

J'ai testé mais c'est pas bon, j'ai des erreurs sur le code. Peut etre une precision à faire je suis sous Access 2007

[FreeAccess]

Bonjour,
Sous AC97, avec un peu de recherche
Ici une solution:
http://support.microsoft.com/default...%3Bfr%3B109337

Sinon quelle erreur as-tu
La référence Microsoft Office 8.0 Object Library est-elle bien cochée

Sinon essai ceci:

Code :

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

1
2
3
4
Dim CtlBarre As Object
   For Each CtlBarre in Application.CommandBars
      Docmd.ShowToolbar CtlBarre.Name, acToolbarNo
   Next

Bonne continuation.

[EDIT] Oupsss Oubli ce que je viens d'écrire, je n'avais pas vu que tu était sous AC 2007 ....Sinon, que dit l'aide

[texas2607]

Salut FreeAccess,
Concernant ton code :

Dim CtlBarre As Object
For Each CtlBarre in Application.CommandBars
Docmd.ShowToolbar CtlBarre.Name, acToolbarNo
Next

Cela me retourne les mêmes erreurs que le code de la FAQ c'est à dire :
Erreur 2094
Le traitement des bugs ne trouve pas la barre d'outils "clipboard"

L'aide se fait surtout Online mais pour l'instant elle est limite dans les recherche et pas très intuitive... Dommage mais je continue de fouiller.