code to add user to workgroup

[gluchu]

how to create a user from a form ???
i looked in help and i find something like this :
CREATE USER user password pid [, user password pid, …]
but i don't get it
how do the corect CREATE USER declaration looks ?

can you help mi with that problem ?

[ADezii]

how to create a user from a form ???
i looked in help and i find something like this :
CREATE USER user password pid [, user password pid, …]
but i don't get it
how do the corect CREATE USER declaration looks ?

can you help mi with that problem ?

To create a New User named John Doe with no Password, and to make him a member of the Admins Group:

Dim MyWks As Workspace, MyUser As User
Set MyWks = DBEngine.Workspaces(0)

With MyWks
  'Create and Append the New User John Doe
  Set MyUser = .CreateUser("John Doe")
    MyUser.PID = "B6TFRE45"     'Unique Identifier
    MyUser.Password = ""        'No Password
    .Users.Append MyUser
  'Make the User John Doe a member of the Admins Group by creating
  'and adding the User Object to the Admin's Group Users collection
  Set MyUser = .Groups("Admins").CreateUser("John Doe")
  .Groups("Admins").Users.Append MyUser
End With

[gluchu]

its working but when i try to login i get a message:
Record(s) cannot be read; no read permission on "MySysAccessObj ects"
?????

[ADezii]

its working but when i try to login i get a message:
Record(s) cannot be read; no read permission on "MySysAccessObj ects"
?????

I'm not really sure why you are getting this Error Message - perhaps it has something to do with restrictions applied to the Admins Group. I'll investigate further.

[gluchu]

i add user to the new created group not to the admins group

[gluchu]

i dont have permission to the system tables in security.mdw
only the enginer have it

[gluchu]

now i know why it dont works
i had to add every created user to the users group
Thnak's for your help ADezii

[gluchu]

i need one more thing
something in VB to change users password and to log out a user ?

[ADezii]

i need one more thing
something in VB to change users password and to log out a user ?

Not VB but SQL:

ALTER USER <UserName> PASSWORD <NewPassword> <OldPassword>