Gestion des utilisateurs et des groupes

Pour que ces codes fonctionnent, il faut préalablement aller dans un module VBA, et dans le menu Outils/Références, cocher la case "Microsoft DAO 3.6 Object Library", s'il n'y a pas le 3.6, une autreversion suffira.

Voici le code VBA qui permet de récupérer le nom de l'utilisateur :

Sub QuelUser()
  Dim Espace As Workspace
  Set Espace = DBEngine.Workspaces(0)
  MsgBox Espace.UserName
  Set Espace = Nothing
End Sub

Et voici celui qui affiche le nom des groupes auxquels il appartient :

Sub QuelGroupe()
  Dim Espace As Workspace
  Dim Branché As User
  Dim LeGroupe As Group
  Dim QuelGroupe As String
  Set Espace = DBEngine.Workspaces(0)
  Set Branché = Espace.Users(Espace.UserName)
  
  For Each LeGroupe In Branché.Groups
    MsgBox LeGroupe.Name
  Next LeGroupe
  
  Set Espace = Nothing
End Sub