Discussion :

[Keuf95]

Bonjour à tous,
Tout est dans le titre.
Je cherche à obtenir la liste de tous les groupes pour l'utilisateur courant.

J'ai trouvé un bout de code pour tester si l'utilisateur appartient au groupe "Admin" ce qui ne correspond pas tout à fait à ma demande puisque dans ce cas il faut tester l'ensemble des groupes existants pour connaitre les groupes de l'utilisateur.

[Muhad'hib]

Salut,

Code :

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

1
2
3
4
5
6
 
Dim I As Integer
For I = 0 To DBEngine(0).Users(CurrentUser).Groups.Count - 1
    'pour chaque groupe on test si le nom de ce groupe est égal à strNomGroupe
    Debug.Print DBEngine(0).Users("leto").Groups(I).Name
Next I

A+

[Keuf95]

Merci.
Testé, correspond parfaitement à ma demande.