Compléments pour Microsoft Access

Description

		Cette fonction permet de modifier le mot de passe d'un utilisateur du groupe de travail lié à la base de données en cours.

Synthaxe

NewPassWordX()

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

le nom du nouvel utilisateur dont on souhaite modifier le mot de passe,
l'ancien mot de passe de l'utilisateur,
le nouveau mot de passe souhaité de l'utilisateur.

Remarque : Pour effectuer cette opération, il faut bien évidemment connaître l'ancien mot de passe de l'utilisateur. Si l'ancien mot de passe est erroné, la modification sera annulée.

Exemple

		Aucun exemple disponible pour le moment.

Code de la fonction

Function NewPassWordX()

Dim wrkDefault As Workspace
Dim usrNew As User
Dim strOldPassWord As String
Dim strPassWord As String
Dim strNameUser As String

Set wrkDefault = DBEngine.Workspaces(0)

With wrkDefault
    Do While True
        strNameUser = InputBox("Entrez le nom de l'utilisateur à qui " _
            & "il faut changer le mot de passe :")
        strOldPassWord = InputBox("Entrez l'ancien mot de passe " _
            & "de l'utilisateur " & strNameUser & ":")
        strPassWord = InputBox("Entrez un nouveau mot de passe :")
        Set usrNew = .Users(strNameUser)
        Select Case Len(strPassWord)
            Case 1 To 14
                On Error GoTo ErrorOldPassWord
                usrNew.NewPassword strOldPassWord, strPassWord
                MsgBox "Mot de passe changé !"
                Exit Do
            Case Is > 14
                MsgBox "Mot de passe trop long !"
            Case 0
                usrNew.NewPassword strOldPassWord, ""
                MsgBox "Mot de passe changé !"
                Exit Do
        End Select
    Loop
End With
Exit Function
ErrorOldPassWord:
     MsgBox "Ancien mot de passe incorrect, " _
        & "sa mise à jour a donc été annulée", , _
        "Gestion des utilisateur"

End Function

Modifier mot de passe d'un utilisateur (Administrateur)