Comment trouver tous les groupes de sécurité MS Access dans VBA?

Question

Comment puis-je trouver une liste de tous les groupes de sécurité MS Access dans mon application via VBA? Je sais que je peux le faire en allant dans Outils-> Sécurité-> Comptes d'utilisateurs et de groupes, mais j'aimerais le faire via VBA (je voudrais automatiser certaines de mes routines de création d'utilisateurs).

J'ai envisagé d'ajouter un utilisateur fictif assigné à tous les groupes et de simplement tirer les groupes auxquels ils sont assignés par l'utilisateur, mais il doit y avoir une façon plus propre de le faire.

Answer 1

Trouvé!

Dim curr_group As Group 
Dim group_cnt As Long 
Dim group_ndx As Long 

Dim strGroup As String 
Dim strGroupList As String 

    strGroupList = "" 
    group_cnt = DBEngine(0).Groups.Count 
    For group_ndx = 0 To group_cnt - 1 
     Set curr_group = DBEngine(0).Groups(group_ndx) 
     strGroup = curr_group.Name 
     If strGroupList = "" Then 
      strGroupList = strGroup 
     Else 
      strGroupList = strGroupList & ";" & strGroup 
     End If 
    Next group_ndx 
    Me.lbxSysGroups.RowSource = strGroupList