Deleting a User Account : User Account « Access « VBA / Excel / Access / Word

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

Deleting a User Account

 
Sub Delete_User() 
    Dim cat As ADOX.Catalog 
    Dim conn As ADODB.Connection 
    Dim strDB As String 
    Dim strSysDb As String 

    On Error GoTo ErrorHandle 

    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 
    With cat 
        .ActiveConnection = conn 
        .Users.Delete "UserName" 
    End With 
ExitHere: 
    Set cat = Nothing 
    conn.Close 
    Set conn = Nothing 
    Exit Sub 
ErrorHandle: 
    If Err.Number = 3265 Then 
        cat.Users.Append "UserName", "star" 
        Resume 
    Else 
        MsgBox Err.Description 
        Resume ExitHere 
    End If 
End Sub 

 

Related examples in the same category