Enumerate groups and users : DBEngine « Access « VBA / Excel / Access / Word

1. VBA / Excel / Access / Word
2. Access
3. DBEngine

Enumerate groups and users

 

Sub EnumGroupsAndUsers()
    Dim grp As Group
    Dim usr As User
    For Each usr In DBEngine(0).Users
        Debug.Print usr.Name
        For Each grp In usr.Groups
            Debug.Print vbTab; grp.Name
        Next
    Next
End Sub

 

Related examples in the same category