Compléments pour Microsoft Access

http://access.fr.free.fr/

Suppression d'un groupe à un utilisateur (Administrateur)

Description 

Cette fonction permet de supprimer  l'affection d'un utilisateur à groupe du fichier de groupe de travail lié à la base de données en coure.

 
Synthaxe 

DeleteGroupUserX()

Cette fonction pourra être appelée avec une macro, un menu personnalisé ou un bouton de formulaire.
Elle affichera 2 boîtes de dialogue afin de spécifer :

  • le nom du groupe que l'on souhaite retirer à un utilisateur,
  • le nom de l'utilisateur à qui l'on veut retirer le groupe.
 
Exemple 

Aucun exemple disponible pour le moment.

 
Code de la fonction 


Function DeleteGroupUserX()

'Retire un groupe à un utilisateur
Set wrkDefault = DBEngine.Workspaces(0)

With wrkDefault
    strNameGroup = InputBox("Entrez le nom du groupe à supprimer : ", _
        "Gestion des utilisateurs")
    strNameUser = InputBox("Entrez pour quel utilisateur " _
        & "il faut retirer le groupe " & strNameGroup, _
        "Gestion des utilisateurs")

' Supprime le groupe spécifier de l'utilisateur spécifier et le confirme     .Users(strNameUser).Groups.Delete (strNameGroup)
    MsgBox "Le groupe " & strNameGroup & _
        " à bien été retiré à l'utilisateur " & strNameUser, , _
        "Gestion des utilisateurs"
End With

End Function