如何在 VBA 中找到所有 MS Access 安全组

Question

如何通过 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