Mega Code Archive

 

Categories / VisualBasic Script / Access

 

Add group

Sub GroupAdd()     Dim mySpace As Workspace     Dim grpRegistrars As Group     Dim strGroupPID As String     Set mySpace = DBEngine(0)     strGroupPID = "5678"     Set grpRegistrars = mySpace.CreateGroup("Registrars")     grpRegistrars.PID = strGroupPID     mySpace.Groups.Append grpRegistrars End Sub