Danigra

Private Sub Valider_Click()
    If Len(Me.Tx_USER_NV_MDP) = 0 Then
        MsgBox "Le Champ Nom d'utilisateur est obligatoire", vbInformation, "NOM D'UTILISATEUR VIDE"
        Me.Tx_USER_NV_MDP.SetFocus
    ElseIf Len(Me.Tx_ANC_MDP) = 0 Then
        MsgBox "Le Champ Ancien Mot de Passe est obligatoire", vbInformation, "MOT DE PASSE VIDE"
        Me.Tx_ANC_MDP.SetFocus
    ElseIf Len(Me.Tx_NV_MDP) = 0 Then
        MsgBox "Nouveau Mot de Passe obligatoire pour effectuer le changement", vbInformation, "NOUVEAU MOT DE PASSE EST VIDE"
        Me.Tx_NV_MDP.SetFocus
    ElseIf Len(Me.Tx_CONF_MDP) = 0 Then
        MsgBox "Il faut saisir la confirmation du nouveau Mot de Passe", vbInformation, "ERREUR SUR LA SAISIE DE LA CONFIRMATION DU NOUVEAU MOT DE PASSE"
        Me.Tx_CONF_MDP.SetFocus
    ElseIf Me.Tx_NV_MDP <> Me.Tx_CONF_MDP Then
        MsgBox "Le Mot de Passe n'est pas conforme dans les deux champs", vbInformation, "ERREUR SUR LE MOT DE PASSE"
    Else
        If IsNull(DLookup("NOM_D_UTILISATEUR", "CONNEXION", "NOM_D_UTILISATEUR='" & Me.Tx_USER_NV_MDP & "'")) Or _
           IsNull(DLookup("mot_passe", "CONNEXION", "mot_passe = '" & Me.Tx_ANC_MDP & "'")) Then
            MsgBox "Combinaison NOM D'UTILISATEUR/MOT DE PASSE incorrecte", vbCritical, "erreur NOM D'UTILISATEUR/MOT DE PASSE"
        Else
            DoCmd.SetWarnings False
            DoCmd.RunSQL "UPDATE CONNEXION SET CONNEXION.MOT_PASSE = '" & Me.Tx_NV_MDP & "' WHERE (((CONNEXION.[NOM D'UTILISATEUR]) = '" & Me.Tx_USER_NV_MDP & "') AND (CONNEXION.[MOT_PASSE] = '" & Me.Tx_ANC_MDP & "'))"
            DoCmd.SetWarnings True
            DoCmd.Requery
            MsgBox "LE CHANGEMENT DU MOT DE PASSE EST EFFECTUE"
        End If
    End If
End Sub

Private Sub Valider_Click()
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim strSQL As String
   
    ' Vérifier si les champs sont vides
    If Nz(Me.OldPassword, "") = "" Or Nz(Me.NewPassword, "") = "" Or Nz(Me.ConfirmPassword, "") = "" Then
        MsgBox "Veuillez remplir tous les champs.", vbExclamation, "Changement de mot de passe"
        Exit Sub
    End If
   
    ' Vérifier si le nouveau mot de passe correspond à la confirmation
    If Me.NewPassword <> Me.ConfirmPassword Then
        MsgBox "Le nouveau mot de passe et la confirmation ne correspondent pas.", vbExclamation, "Changement de mot de passe"
        Exit Sub
    End If
   
    ' Vérifier si l'ancien mot de passe est correct
    Set db = CurrentDb
    Set rs = db.OpenRecordset("SELECT * FROM Utilisateurs WHERE NomUtilisateur = '" & Me.NomUtilisateur & "' AND MotDePasse = '" & Me.OldPassword & "'")
   
    If rs.EOF Then
        MsgBox "L'ancien mot de passe est incorrect.", vbExclamation, "Changement de mot de passe"
    Else
        ' Mettre à jour le mot de passe dans la table
        strSQL = "UPDATE Utilisateurs SET MotDePasse = '" & Me.NewPassword & "' WHERE NomUtilisateur = '" & Me.NomUtilisateur & "'"
        db.Execute strSQL
        MsgBox "Le mot de passe a été changé avec succès.", vbInformation, "Changement de mot de passe"
       
        ' Effacer les champs
        Me.OldPassword = ""
        Me.NewPassword = ""
        Me.ConfirmPassword = ""
    End If
   
    rs.Close
    Set rs = Nothing
    Set db = Nothing
End Sub