Compléments pour Microsoft Access

Description

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

Synthaxe

NewPassWordUserX()

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

l'ancien mot de passe de l'utilisateur en cours,
le nouveau mot de passe que souhaite l'utilisateur en cours.

Exemple

		Aucun exemple disponible pour le moment.

Code de la fonction

Function NewPassWordUserX()

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 = CurrentUser
        strOldPassWord = InputBox("Utilisateur " & strNameUser _
            & ",veuillez entrer votre ancien mot de passe.")
        strPassWord = InputBox("Entrez votre 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
                On Error GoTo ErrorOldPassWord
                usrNew.NewPassword strOldPassWord, ""
                MsgBox "Mot de passe changé !"
                Exit Do
        End Select
    Loop
End With
Exit Function
ErrorOldPassWord:
MsgBox "Votre ancien mot de passe est incorrect, " _
    & "sa mise à jour a donc été annulée", , _
    "Gestion des utilisateur"

End Function

Modifier mot de passe utilisateur en cours (Administrateur)