sécurité

Salut,


Un utilisateur peut faire partie de plusieurs groupes, même si un groupe peut faire office d'un
utilisateur (partout, sauf à un log-in). La collection Groups, de Workspace, énumère les groupes:
=================== Public Sub ListeTousUtilisateursParGroupes( )
Dim grp As DAO.Group
Dim utilisateur As DAO.User

For each grp In DBEngine.Workspaces(0).Groups
Debug.Print
Debug.Print "Groupe " , grp.Name
For each utilisateur In grp.Users
Debug.Print vbNullString, "-", utilisateur.Name
Next utilisateur
Next grp
End Sub
===============

et, certes, on peut tout aussi bien faire l'inverse...

=============== Public Sub ListeAllUG()


Dim grp As DAO.Group
Dim utilisateur As DAO.User

For Each utilisateur In DBEngine.Workspaces(0).Users
Debug.Print
Debug.Print vbNullString, utilisateur.Name
For Each grp In utilisateur.Groups
Debug.Print vbNullString, "-", grp.Name
Next grp
Next utilisateur
End Sub
=================
car tous les utilisateurs ne font pas forcément partie d' (au moins) un groupe.

Espérant être utile,
Vanderghast, Access MVP



"Stéphane" <st_lavouma@hotmail.com> wrote in message news:038101c356d2$2c3d4680$a401280a@phx.gbl...

Utilisateur se dit "currentuser" mais pour le groupe, on
dit quoi?

Merci d'avance.