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

Home
VBA / Excel / Access / Word
1.Access
2.Application
3.Data Type
4.Data Type Functions
5.Date Functions
6.Excel
7.File Path
8.Forms
9.Language Basics
10.Math Functions
11.Outlook
12.PowerPoint
13.String Functions
14.Windows API
15.Word
16.XML
Microsoft Office PowerPoint 2007 Tutorial
Microsoft Office Excel 2007 Tutorial
Microsoft Office Word 2007 Tutorial
VBA / Excel / Access / Word » Access » 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
java2s.com  |  | Contact Us | Privacy Policy
Copyright 2009 - 12 Demo Source and Support. All rights reserved.
All other trademarks are property of their respective owners.