Discussion :

[Scopas]

Salut,

Voila j’utilise le code

Code :

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

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

Pour cacher les menus sous Access

Sur un autre formulaire que je fais apparaître a l’aide d’un mot de pass je voudrais refaire apparaître les menus

Code :

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

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

Mais j’ai toujours une erreur d’execution 2094 : bdd ne trouve pas la barre d’outils Task Pane

Quelqu’un aurais une idée ?

Ou une autre méthode ?



merci d'avance

[ilank]

Bonjour,
le problème est que ton code ne fait pas la différence entre les barres d'outils et les autres barres.
le Docmd.ShowtoolBar ne s'applique qu'aux barres d'outils, le Task Pane n'est visiblement pas une barre d'outils.

a noter :

Code :

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

1
2
3
Application.CommandBars(w).Type=0 => Barre d'outils
Application.Commandbars(w).Type=1 => Barre de menu
Application.CommandBars(w).Type=2 => Barre de menu contextuel

[Scopas]

okai merci c'est noté

j'ai pris le

Code :

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

Application.Commandbars(w).Type=1 => Barre de menu

car sur les deux autres j'ai une erreur