Suppression d'un groupe d'utilisateur


Cette fonction permet de supprimer un groupe d'utilisateur.

Function DeleteGroupX()

Dim wrkDefault As Workspace
Dim strNameGroup As String

Set wrkDefault = DBEngine.Workspaces(0)
With wrkDefault
    strNameGroup = InputBox("Entrez le nom du groupe à supprimer : ", _
        "Gestion des utilisateurs")
    ' Supprime le groupe spécifier et le confirme
    .Groups.Delete (strNameGroup)
    MsgBox "Le groupe " & strNameGroup & " à bien été supprimé.", , _
        "Gestion des utilisateurs"
End With

End Function

 

Retour haut de page

Auteur : Jessy SEMPERE