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

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

Listing All User Accounts

 
Sub List_Users() 
    Dim conn As ADODB.Connection 
    Dim cat As ADOX.Catalog 
    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 myUser In cat.Users 
        Debug.Print myUser.Name 
    Next 
    Set cat = Nothing 
    conn.Close 
    Set conn = Nothing 
End Sub 

 

Related examples in the same category