affecter un utilisateur à un groupe [Résolu]

[33ctdebut]

Bonjour,

J'ai lu le document de Fabrice Constans "Comprendre et mettre en oeuvre la sécurité sous Access".
J'ai trouvé dans ce document tout ce que je voulais faire. Merci beaucoup.
Toutefois, je bute sur l'affectation d'un utilisateur à un groupe déjà existant. Dans tout ce que je trouve, on crée l'utilisateur, le groupe et on affecte.

Au travers d'un formulaire, on demande à l'utilisateur de rentrer nom et
password . On crée cet utilsateur et on l'affecte au groupe déjà existant "Users".
Voici mon code :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
   Dim wrkDefault As Workspace
   Dim usrNew As User
   Dim grpMember As Group
 
Set wrkDefault = DBEngine.Workspaces(0)
 
repnom = InputBox("Rentrez le nom d'un nouvel utilisateur")
reppswd = InputBox("Rentrez son mot de passe")
 
With wrkDefault
      Set usrNew = .CreateUser(repnom, "abc123DEF456", reppswd)
      .Users.Append usrNew
      Set grpMember = usrNew.Groups("users")
      usrNew.Groups.Append grpMember
End With

Merci d'avance pour votre aide

[loufab]

Bonjour,

Au lieu d'utiliser .CreateUser utilise

Code :

.Users("le nom de l'utilisateur")

Cordialement,

[33ctdebut]

Bonjour,

Désolée de ne pas comprendre grand chose, mais je dois créer un nouvel utilisateur, d'où le .CreateUser. Donc jusque là, ça va :

Set usrNew = .CreateUser(repnom, "abc123DEF456", reppswd)
.Users.Append usrNew

C'est plutôt là que ça se gâte, non ?

Set grpMember = usrNew.Groups("users")
usrNew.Groups.Append grpMember

Merci pour votre patience