Compléments pour Microsoft Access

Description

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

Syntaxe

NewUserX()

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

le nom du nouvel utilisateur que l'on souhaite créer,
le PID (numéro d'identification personnel pour l'utilisateur),
le mot de passe souhaité pour l'utilisateur,
le nom de groupe auquel on souhaite le rattacher.

Exemple

		Aucun exemple disponible pour le moment.

Code de la fonction

Function NewUserX()

Dim wrkDefault As Workspace
Dim usrNew As User
Dim grpMember As Group
Dim strPassWord As String
Dim strNameUser As String
Dim strPidUser As String
Dim strNameGroup As String

Set wrkDefault = DBEngine.Workspaces(0)
With wrkDefault
    strNameUser = InputBox("Entrez le nom du nouvel utilisateur : ")
    strPidUser = InputBox("Entrez le n° d'identification personnelle (PID) : ")
    Do While True
        strPassWord = InputBox("Entrez le mot de passe : ")
        Select Case Len(strPassWord)
            Case 1 To 14
                Exit Do
            Case Is > 14
                MsgBox "Le mot de passe est trop long !"
            Case 0
                Exit Do
        End Select
    Loop
    strNameGroup = InputBox("Entrez son groupe : ", , "Users")

    ' Crée un nouvel utilisateur et l'ajoute.
    Set usrNew = .CreateUser(strNameUser, _
        strPidUser, strPassWord)
    .Users.Append usrNew

    ' Inclut le nouvel utilisateur dans un groupe.
    Set grpMember = usrNew.CreateGroup(strNameGroup)
    usrNew.Groups.Append grpMember
End With

End Function

Création d'un utilisateur (Administrateur)