Mega Code Archive

 

Categories / VisualBasic Script / Access

 

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