Création d'un groupe utilisateur


Cette fonction permet de créer un nouveau groupe utilisateur.

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

 

Retour haut de page

Auteur : Jessy SEMPERE