coucou

j'ai un petit soucis, depuis que j'ai rajouté uen condition (celle en gras), le code ne passe pas dans la boucle.

j'ai cherché et pas trouvé la cause. pourriez vous m'aidez? merci


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Private Sub BtnSauvegarder_Click()
Me.Requery

Dim sql As String

Dim rs
Static I As Byte
sql = "SELECT * FROM Identifiant WHERE Login = '" & Me.LMIdentifiant & "' AND MDP ='" & Me.AncienMDP & "';"
Set rs = CurrentDb.OpenRecordset(sql)

If Not rs.EOF Then
'En fonction de la valeur de l"utilisateur"....
    If [me.NouveauMDP = " "] Then
        MsgBox "Veuillez saisir un nouveau mot de passe.", vbCritical
    Else
        DoCmd.RunSQL "Update Identifiant SET MDP= '" & Me.NouveauMDP & "' WHERE Login = '" & Me.LMIdentifiant & "';"
        Me.NouveauMDP = ""
        Me.LMIdentifiant = ""
        Me.AncienMDP = ""
    End If
    
Else
    MsgBox "L'identifiant ou le mot de passe sont incorrects ", vbInformation
    I = I + 1
End If

If I = 3 Then
    MsgBox "Vous avez dépassé le nombre de tentatives autorisés", vbCritical
    DoCmd.Close
End If

End Sub