Access VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Access
  4. 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