Discussion :

[miki]

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

[Lou Pitchoun]

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.

[miki]

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 :

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
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