Add a new user : User Account « Access « VBA / Excel / Access / Word

1. VBA / Excel / Access / Word
2. Access
3. User Account

Add a new user

 
Sub UserAdd()

    Dim mySpace As Workspace
    Dim usrMark As User
    Dim strUsersPID As String

    Set mySpace = DBEngine(0)
    strUsersPID = "1234abcd"
    Set usrMark = mySpace.CreateUser("Mark")
    usrMark.Password = "Doc"
    usrMark.PID = strUsersPID
    mySpace.Users.Append usrMark
End Sub

 

Related examples in the same category