Listing All Group Accounts : Group Account « Access « VBA / Excel / Access / Word

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

Listing All Group Accounts

 
Sub List_Groups()
    Dim conn As ADODB.Connection
    Dim cat As ADOX.Catalog
    Dim grp As New ADOX.Group
    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 grp.Name
    Next
    Set cat = Nothing
    conn.Close
    Set conn = Nothing
End Sub

 

Related examples in the same category