Mega Code Archive

 
Categories / VisualBasic Script / Access
 

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