Compléments pour Microsoft Access

Description

		Cette fonction permet de créer un nouveau groupe utilisateur dans fichier de groupe de travail lié à la base de données en cours.

Syntaxe

NewGroupX()

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 ajouter ainsi que le PID (numéro d'identification personnel pour le groupe).

Exemple

		Aucun exemple disponible pour le moment.

Code de la fonction

Function NewGroupX()

Dim wrkDefault As Workspace
Dim grpNew As Group
Dim strNameGroup As String
Dim strPidGroup As String

Set wrkDefault = DBEngine.Workspaces(0)
With wrkDefault
    strNameGroup = InputBox("Entrez le nom du groupe à créer : ", _
        "Gestion des utilisateurs")
    strPidGroup = InputBox("Entrez le n° d'identification personnelle (PID) du groupe : ", _
        "Gestion des utilisateurs")

    ' Crée un nouveau groupe et l'ajoute.
    Set grpNew = .CreateGroup(strNameGroup, strPidGroup)
    .Groups.Append grpNew
    MsgBox "Le groupe " & strNameGroup & " avec le n° de PID " & _
        strPidGroup & " a bien été créé.", , "Gestion des utilisateurs"
End With

End Function

Création d'un groupe (Administrateur)