Mega Code Archive

 

Categories / VisualBasic Script / Access

 

Add user to group

Sub AddUserToGroup()     Dim mySpace As Workspace     Dim usrMark As User     Set mySpace = DBEngine(0)     Set usrMark = mySpace.CreateUser("Mark Fenton")     mySpace.Groups("Registrars").Users.Append usrMark End Sub