Revoking Security Permissions with SQL command : Group Account « Access « VBA / Excel / Access / Word






Revoking Security Permissions with SQL command

 
Sub RevokePermission() 
    Dim conn As ADODB.Connection 

    On Error GoTo ErrorHandler 

    Set conn = CurrentProject.Connection 

    conn.Execute "REVOKE DELETE ON CONTAINER TABLES 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 

 








Related examples in the same category

1.Creating a Group Account
2.To create a new group account in the current database
3.Adding a User to a New Group
4.Deleting a Group Account
5.Listing All Group Accounts
6.Listing Users in Groups
7.Creating a Group Account with SQL command
8.Making a User Account a Member of a Group with SQL command
9.Removing a User Account from a Group with SQL command
10.Deleting a User Account with SQL command
11.Granting Permissions for Tables to an Existing Group with SQL command
12.Deleting a Group Account with SQL command
13.Add group
14.Add user to group