Bonjour,
après avoir cherché de nombeuses heures et lu plutôt deux fois qu'une l'excellent tutorial de Fabrice Constans sur "Comprendre et mettre en oeuvre la sécurité sous Access", voici mon problème :
Autant je suis capable d'affecter un utilisateur à un groupe via le code
autant je galère pour enlever un utilisateur d'un groupe. Il existe bien une Instruction DROP USER, mais je n'arrive pas à la mettre en oeuvre.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14 Sub AffectUsrGrp() ' necessite librairie DAO Dim Wrk As Workspace Dim Usr As DAO.User Dim Grp As DAO.Group Dim grpAffect As DAO.Group Set Wrk = DBEngine.Workspaces(0) With Wrk Set Usr = .Users("Jacques") Set Grp = .Groups("Mongroupe") Set grpAffect = Usr.CreateGroup("Mongroupe") Usr.Groups.Append grpAffect End With End Sub
Si vous avez des exemples de code...
Merci pour votre aide
Partager