Listing Users in Groups : Group Account « Access « VBA / Excel / Access / Word

1. VBA / Excel / Access / Word
2. Access
3. Group Account

Listing Users in Groups

 
Sub List_UsersInGroups()
    Dim conn As ADODB.Connection
    Dim cat As ADOX.Catalog
    Dim grp As New ADOX.Group
    Dim myUser As New ADOX.User
    Dim strDB As String
    Dim strSysDb As String

    strDB = CurrentProject.Path & "\mydb.mdb"
    strSysDb = CurrentProject.Path & "\mydb.mdw"

    Set conn = New ADODB.Connection
        With conn
            .Provider = "Microsoft.Jet.OLEDB.4.0"
            .Properties("Jet OLEDB:System Database") = strSysDb
            .Properties("User ID") = "Developer"
            .Properties("Password") = "mypass"
            .Open strDB
        End With

    Set cat = New ADOX.Catalog
    cat.ActiveConnection = conn
    For Each grp In cat.Groups
        Debug.Print "Group Name: " & grp.Name
        If cat.Groups(grp.Name).Users.count = 0 Then
            Debug.Print "There are no users in the " & grp & " group."
        End If
        For Each myUser In cat.Groups(grp.Name).Users
            Debug.Print "User Name: " & myUser.Name
        Next myUser
    Next grp

    Set cat = Nothing
    conn.Close
    Set conn = Nothing
End Sub

 

Related examples in the same category