我怎样才能找到所有在VBA

Question

的MS Access安全组怎么能在我通过VBA我的应用程序找到所有的MS Access安全组的列表？

我知道我可以通过转到工具 - >安全 - >用户和组帐户，但我想通过VBA（我想自动执行一些用户创建例程）。

我已经考虑增加分配给所有组的虚拟用户，只是拉他们从用户分配到组，但必须有这样做一个更清洁的方式。

Answer 1

找到了！

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