To create a new group account in the current database : Group Account « Access « VBA / Excel / Access / Word






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

To create a new group account in the current database

 
Sub Create_Group2()
    Dim cat As ADOX.Catalog
    
    On Error GoTo ErrorHandle
    
    Set cat = New ADOX.Catalog
    With cat
        .ActiveConnection = CurrentProject.Connection
        .Groups.Append "Masters"
    End With
    
ExitHere:
    Set cat = Nothing
    Exit Sub
ErrorHandle:
    If Err.Number = -2147467259 Then
        MsgBox "This group already exists."
    Else
        MsgBox Err.Description
    End If
    Resume ExitHere
End Sub








Related examples in the same category

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