Compléments pour Microsoft Access

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

Suppression d'un groupe (Administrateur)

Description 

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

 
Synthaxe 

DeleteGroupX()

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

  • le nom de groupe que l'on souhaite supprimer.
 
Exemple 

Aucun exemple disponible pour le moment.

 
Code de la fonction 


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