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 WithEnd Function
Auteur : Jessy SEMPERE