Discussion :

[alassanediakite]

Salut
Voici un code que j'ai trouvé sur dev.com

Code :

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

1
2
3
4
5
On Error Resume Next 'ajouté par moi
Dim i As Integer
For i = 1 To Application.CommandBars.Count
   DoCmd.ShowToolbar Application.CommandBars.Item(i).Name, acToolbarNo
Next

Ce code marche bien sur une de mes machines mais provoque une erreur sur les autres, empechant ACCESS d'ouvrir l'application.
Mon objectif c'est d'enlever toutes les barres. L'option de démarrage d'ACCESS le fait partiellement.
J'ai ue un autre code du genre "afficher un formulaire plein écran" mais là non plus ça ne marche pas.
Ce dernier code j'ai l'ai adpté à mes besoins.
Je pense avoir supprimer les nons necessaires. Il y avait une table qui devait recevoir les noms des barres de commandes supprimer pour en cas de reinitialisation et un objet database que j'ai supprimer.
Voici le code resultant

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
Private Sub AfficherMenu()
On Error Resume Next
Dim oBar As CommandBar
  'Parcours chaque barre d'outils
  For Each oBar In Application.CommandBars
 
    If oBar.Visible Then
      'Masque la barre
      oBar.Visible = false
    End If
  Next
 
End If
'Traite la barre de menu principale
DoCmd.ShowToolbar "Menu bar",  acToolbarNo
End Sub

Ici la barre de menu principale reste toujours active.
Merci pour votre aide

[ouskel'n'or]

As-tu vérifié qu'il ne manquait pas une référence dans VBA ? Menu Outils -> Référence ?
A tout hasard

[alassanediakite]

Salut
Oui, j'ai vérifier toutes les références.
Mais du moment que c'est le même fichier, je ne voie pas de problème. Si la référence manquait sur les autres posts le code s'arreterait dès l'ouverture non? (du moins c'est ce que j'ai toujours vue).
Au faite le deuxième code avait un "end if" de trop Il marche mais souvent le menu principal reduit s'affiche.
Dois je poser le tag résolut? (Ce n'est pas totalement résolut )
Merci pour vos aides.
A+