Discussion :

[Halima91]

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

[LedZeppII]

Bonsoir,

essaie de cette manière :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
If Trim(Nz(me.NouveauMDP,"")) = "" Then
....

A+

[Halima91]

impeccable!!!!!!!!!!



merci beaucoup pour l'efficacité et la rapidité hihi



est ce que tu pourrais m'expliquer le code?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Trim(Nz(me.NouveauMDP,"")) = "" Then

c'est la 1er fois que je rencontre c'est terme.

merci

[LedZeppII]

Bonsoir,

Nz(expression, "") sert à remplacer expression par une chaîne vide ("") dans le cas ou expression est Null.
Pour les chaînes de caractères, l'utilisation de Nz permet d'éviter deux contrôles successifs dans le cas ou on ne veut ni Null, ni "".

Les comparaisons avec Null renvoient toujour Null, c'est donc problématique.

Code x :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Null <> "" renvoie Null
Null  = "" renvoie Null

Nz(Null, "") <> "" renvoie Faux
Nz(Null, "")  = "" renvoie Vrai

J'ai donc pris l'habitude d'utiliser Nz quand je ne m'interesse pas particulèrement à la valeur Null, pour ne plus poser de question

La fonction Trim retire les espaces à gauche et à droite.
" toto " devient "toto"
" " devient ""

Au final, avec un seul If, tu rejettes les mots passes Null, "", " ", "  ", "   ", etc...

A+

[Halima91]

coucou

merci beaucoup

a++