Discussion :

[Matmal11]

Bonjour,

Je voudrais récupérer le groupe du currentuser afin de l'enregistrer dans une variable.
J'ai créer mon user et mon groupe avec "gestion des utilisateurs et des groupes".
Je travaille sur Access XP.

Savez-vous comment faire??

Merci par avance

Mat

[mout1234]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Function EstMembreDe(ByVal sGroupe As String) As Boolean
      Dim wk As Workspace 
      Set wk = DBEngine(0)  
 
      sUserName = wk.UserName  
 
       'détermine s'il appartient au groupe sGroupe  
 
       On Error Resume Next  
       Set objGrp = wk.Users(sUserName).Groups(sGroupe)  
       EstMembreDe = Not (objGrp Is Nothing)  
       Set obkGrp = Nothing  
       Set wk = Nothing  
End Function

[Matmal11]

merci, cela fonctionne bien

dsl pour le feedback tardif

Mat