Question

如何通过VBA在我的应用程序中找到所有MS Access安全组的列表？

我知道我可以通过转到Tools-＆gt; Security-＆gt;用户和组帐户来实现，但我想通过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

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

1 个答案: