Discussion :

[ixode]

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 :

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

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

[Maxence HUBICHE]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Users("Jacques").Delete

[ixode]

Et bien voilà. Si simple et pourtant je suis passé à côté, je pensais que .delete effaçait le groupe...
Merci