Discussion :

[miron]

Bonjour,

J'ai trouvé de très bon tuto et faq sur la gestion en vba des utilisateurs et des groupes, comme celui la .

Cependant, il y a tous les cas de figure sauf le cas où l'on désire supprimer un groupe à un utilisateur.

Esceque vous sauriez comment, faire, et si oui merci d'avance.

Cordialement,

Pierre

[miron]

Re,

Aurais-je oublié de spécifier quelque chose d'important ?
N'ésitez pas à me demander.

A+

Pierre

[electrosat03]

Salut,

Voici la réponse

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Public sub SupprimerUtilisateurDeGroupeDAO (StrNomGroupe as string)
Dim oWs as DAO.Worrkspace
Dim oGrp as DAO.Group
Dim StrUtilisateur as String
 
'ici le nom de l'utilisateur
StrUtilisateur=Nom Utilisateur
 
Set oWs=DBEngine.Workspaces(0)
Set oGrp=oWs.Group(StrNomGroupe)
oWs.Users.Delete oGrp.Users(StrUtilisateur)
End Sub

Voilà A+

[miron]

Merci,

Mais seulement il y a quelques problèmes :

Tout d'abord quelques erreurs de frappe, je suppose (à confirmer) :

Code access :

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

1
2
3
4
5
6
7
8
9
10
Private Sub SupprGroupe_Click()

    Dim oWs As DAO.Workspace
    Dim oGrp As DAO.Group
     
    Set oWs = DBEngine.Workspaces(0)
    Set oGrp = oWs.Groups(Me.ListeGroupes.ItemData(Me.ListeGroupes.ListIndex))
    oWs.Users.Delete oGrp.Users(Me.Utilisateurs.Value)
    
End Sub

Bien sûr j'ai essayé de l'adapter à mon cas et de le mettre directement dans un SUB.

Or à la dernière ligne j'ai une erreur de compilation, il me dit qu'il y a une incompatibilitée de type en me surlignant ".Delete".

Si vous avez des idées ou des remarques/corrections,

Merci d'avance,

Pierre

[electrosat03]

Re,

As-tu bien ajouter la référence Microsoft DAO 3.X Object Library ?

[miron]

Oui la 3.6. Mon formulaire peut déja ajouter un utilisateur, lui affecter des groupes, pas les supprimer.

[electrosat03]

Quel message d'erreur as tu ?

[miron]

Re,

Comme je l'ai dit dans un message plus haut, j'ai le message :

Erreur de compilation
Incompatibilitée de type

L'aide m'amène vers Erreur 13.

A+

[electrosat03]

Mets un point d'arrêt au début de ta procédure et avance pas à pas, regarde bien où l'erreur se passe

[Domi2]

Bonjour,

Je n'ai pas Access sous la main, mais il me semble que

Code :

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

(Me.ListeGroupes.ItemData(Me.ListeGroupes.ListIndex))

ramène une valeur numérique et non le nom du groupe à supprimer.

Peut-être simplement avec

Code :

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

Me.ListeGroupes.Column(x)

L'indice commence à 0.

Domi2

[electrosat03]

En effet, erreur que je n'ai pas vu, je fait + choses à la fois.

Pourquoi ne pas récupérer le nom du groupe dans une variable et l'utiliser ensuite.

[miron]

Bonjour,

Merci mais je ne peux pas exécuter pas à pas, puisque c'est une erreur de compilation. :-/

Par ailleurs l'erreur en question se situe bien sur la dernière ligne

Code :

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

oWs.Users.Delete oGrp.Users(Me.Utilisateurs.Value)

Où le paramètre est bien un String.

Pour ce qui est du nom du groupe, je ne vois pas pourquoi cela serait un int, c'est bien un String, et dans tous les cas j'ai testé via une variable string intermédiaire, mais il ne se passe aucun changement.

Si vous avez des idées de pourquoi il me dit que sur 'Delete' il y a une incompatibilitée de type je suis preneur.

Cordialement,

Pierre

[Domi2]

Bonjour,

Dans l'intervale, j'ai remis la main sur un code, ici.

A essayer ?

Domi2

[miron]

Re,

Merci beaucoup ! Cela focntionne comme sur des roulettes !

Bonne journée.

Cordialement,

Pierre