Mega Code Archive

 

Categories / VisualBasic Script / Access

 

Removing a User Account from a Group with SQL command

Sub RemoveUserFromGroup()      Dim conn As ADODB.Connection      On Error GoTo ErrorHandler      Set conn = CurrentProject.Connection      conn.Execute "DROP USER yourName FROM YourGroupName"  ExitHere:          If Not conn Is Nothing Then              If conn.State = adStateOpen Then conn.Close          End If          Set conn = Nothing          Exit Sub  ErrorHandler:          Debug.Print Err.Number & ":" & Err.Description          Resume ExitHere  End Sub