Compléments pour Microsoft Access

Description

		Cette fonction permet d'affecter un groupe supplémentaire à un utilisateur.

Syntaxe

NewGroupUserX()

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 affecter,
le nom de l'utilisateur à qui l'on veut l'affecter.

Exemple

		Aucun exemple disponible pour le moment.

Code de la fonction

Function NewGroupUserX()

' Obtient l'objet Workspace par défaut.
Set wrkDefault = DBEngine.Workspaces(0)

With wrkDefault
    strNameGroup = InputBox("Entrez le nom du groupe à affecter : ", _
        "Gestion des utilisateurs")
    strNameUser = InputBox("Entrez pour quel utilisateur " _
        & "il faut ajouter le groupe " & strNameGroup)
    Set usrNew = .Users(strNameUser)

    ' Inclut le nouvel utilisateur dans un groupe.
    Set grpMember = usrNew.CreateGroup(strNameGroup)
    usrNew.Groups.Append grpMember
     MsgBox "Le groupe " & strNameGroup & _
        " a bien été affecté à l'utilisateur " & strNameUser & ".", , _
        "Gestion des utilisateurs"
End With

End Function

Ajout d'un groupe à un utilisateur (Administrateur)