Discussion :

[jolemoine]

Bonjour ou bonsoir à toutes et à tous
j'ai un problème lors du développement d'une petite application
en effet je veux faire disparaitre les "barres de commandes" en lancant l'application, j'utilise le code suivant que j'ai trouvé sur ce site

Code :

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

1
2
3
For i = 1 To ApplicationCommandBar.count
               DoCmd.ShowToolBar Application.CommandBars.Item(i).Name, acToolBarNo
          Next i

Ce code marche très bien pour la vrsion d'Access 2000

Bon mais sur un poste avec Access 2002, rien ne va plus cela plante Access et un rapport d'erreur est dressé, voici ce que l'on peut y lire en entête:
AppName: msaccess.exe
AppVer: 10.0.6501.0
ModVer: 10.0.6501.0
offset: 0031eddc
ModName: msaccess.exe

Bon je ne sais pas de quoi il s'agit, mais j'aimerai bien faire disparaitre ces barres.
Si quelqu'un de la communauté des développeurs purrait bien venir à mon aide je lui serait très reconnaissant
merci de votre aide
jolemoine

[Invité]

Salut,

1) Tu as une erreur dans la 1ère ligne du code
Ce n'est pas : ApplicationCommandBar.count mais Application.CommandBar.count

2) Il faut faire un test si la barre est visible ou non

Code :

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

1
2
3
4
5
6
  Dim I As Integer
  For I = 1 To Application.CommandBars.Count
    If Application.CommandBars.Item(I).Visible = True Then
      DoCmd.ShowToolbar Application.CommandBars.Item(I).Name, acToolbarNo
    End If
  Next I

Voilà

[jolemoine]

Salut, je vais donc essayer le test, mais mon appli est au boulot, je verrai donc demain.
merci

[jolemoine]

Bonjour,
je vient d'entrer le code que tu m'a proposé et cela marche.
je l'ai mis sur "Activation" et non sur "Chargement" cela semble mieux marcher.
Il me restait en fait, lorque c'était sur "Chargement" la barre outil Acrobat.
Merci de ton aide