Mega Code Archive

 

Categories / VisualBasic Script / Access

 

Deleting a Group Account

Sub Delete_Group()      Dim conn As ADODB.Connection      Dim cat As ADOX.Catalog      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          .Groups.Delete "GroupName"     End With  ExitHere:      Set cat = Nothing      conn.Close      Set conn = Nothing      Exit Sub  ErrorHandle:      If Err.Number = 3265 Then          cat.Groups.Append "Masters"          Resume      Else          MsgBox Err.Description          Resume ExitHere      End If  End Sub