[Général]Chargement des barres de menus

Bonjour à Tous;
Je viens de créer deux barres de menus; l'un pour des utilisateurs et l'autres pour les Administrateurs. Ces barres de menus sont faits avec des macros.
Comment les charger par la programmation;j'ai utilisé docmd.showlbar sans succés. où je ne sais sur quels évements les liés.

J'ai besoins de votre asistance

Salut,

Crées une macro AutoExec. Tu appelles la fonction montrerMenu() que tu vas créer.
Ensuite dans un module : tu crées cette fonction.
Tu testes le groupe (cf la FAQ) et en fonction tu affiches la barre de menus adéquate.

Oui, j'ai fait la fonction, mais le problème c'est le code d'affichage de la barre.

Les barres de menus que j'ai fait sont des macros ( qui ont AjoutMenu). Quand je le met dans la propriété barre de menu le menu s'affiche bien mais quand je fais la commande Docmd.ShowToolbar " nommacro" le menu ne s'affiche pas. Je ne sais si vous avez d'autres codes.

C'est ça ma difficulté. Voici mes codes de ma fonction :

Code:

---

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 28

Public Function User() As Integer Dim strUser As String Dim esp As Workspace   On Error Resume Next strUser = Application.CurrentUser Set esp = DBEngine.Workspaces(0) 'L'instruction suivante provoque ou non une erreur strUser = esp.Users(strUser).Groups("admins").Name   If Err.Number = 3265 Then 'élément non trouvé dans cette collection, l'utilisateur n'est pas administrateur DoCmd.OpenForm "mainmnu", , , , , acWindowNormal End If   If Err.Number > 0 Then 'autre erreur User = 0 End If   If Err.Number = 0 Then 'l'utilisateur appartient au groupe 'administrateur' DoCmd.ShowToolbar "gestocks", acToolbarYes DoCmd.OpenForm "mainmenu", , , , , acWindowNormal End If     End Function

---