Masquer barres de menu

**archonte** · 06/08/2009, 23h30

Bonjour,

Je cherche à faire disparaitre toutes les barres de menu d'Access à l'ouverture de mon formulaire principal. En consultant la FAQ, j'ai trouvé ces 2 fonctions que j'ai mises dans les Form_Open et Form_Close de mon formulaire FMain comme suit :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Form_Open(Cancel As Integer)
    Dim i As Integer
    For i = 1 To Application.CommandBars.Count
        DoCmd.ShowToolbar Application.CommandBars.Item(i).Name, acToolbarNo
    Next
End Sub
 
Private Sub Form_Close()
    Dim i As Integer
 
    For i = 1 To Application.CommandBars.Count
        DoCmd.ShowToolbar Application.CommandBars.Item(i).Name, acToolbarWhereApprop
    Next
End Sub

Problème, lorsque j'active mon formulaire

Access s'interrompt

!

Où faut-il mettre ces 2 fonctions ? Merci à Vous !!

**ilank** · 07/08/2009, 00h57

Bonsoir,

essaie peut-être ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Dim AccessBars As Collection
 
Private Sub Form_Load()
 Dim i as Integer
 'Conserver les barres visibles dans la collection
   Set AccessBars=New Collection
   For i=1 To CommandBars.Count
     If CommandBars(i).Visible Then
         CommandBars(i).Enabled=False
         'Si ce n'est pas la Barre de Menu alors 
         if CommandBars(i).Type<>1 Then CommandBars(i).Visible=False
         AccessBars.add CommandBars(i)
     End if
   Next i
End sub
 
Private Sub Form_Close()
 'Restaurer les barres conservées dans la collection et vider la collection
 If Not (AccessBars Is Nothing) Then
   While AccessBars.Count>0
      AccessBars(1).Enabled=True
      'Si ce n'est pas la Barre de Menu alors 
      If AccessBars(1).Type<>1 Then AccessBars(1).Visible=True
      AccessBars.Remove 1
   Wend
 End if
End sub