[Access2000-VBA] - Enlever un utilisateur d'un groupe
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
Code:
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 |
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.
Si vous avez des exemples de code...
Merci pour votre aide
