Discussion :

[Angelinu]

Bonjour,

J'ai créé un formulaire pour changer de mot de passe, j'ai donc écrit un code avec une requête Update qui devrait aller chercher l'ancien MDP dans la base T_utilisateurs et le remplacer par la nouvel valeur. L'ancienne et la nouvelle valeur sont saisies par l'utilisateur dans le formulaire.

ça fonctionne... Presque... Lorsque je clique sur le bouton "changer MDP" il me demande rentrer des valeurs et même lorsque je les rentre rien n'est mis à jour dans la table.

Quelqu'un pourrait-il revoir mon code pour que la mise à jour se fasse automatiquement à partir des valeur texte entré dans le formulaire.

Je joins la table simplifiée avec le formulaire la requête attachée. Je copie également ci-dessous le code sur le click du bouton "changerMDP"

Merci d'avance de votre aide.

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
Private Sub Commande21_Click()
 
If Me.Texte9 <> Me.Texte22 Or IsNull(Me.Texte9) Then
msgBox "le mot de passe rentré ne correspond pas à votre mot-de-passe actuel. veullez recommencer votre saisie"
Exit Sub
End If
 
If Me.Texte11 <> Me.Texte13 Or IsNull(Me.Texte11) Or IsNull(Me.Texte13) Then
msgBox "Votre nouveau mot-de-passe doit être identique dans les 2 zones de saisie. veuillez vérifier."
Exit Sub
End If
 
If Me.Texte9 = Me.Texte22 And Me.Texte11 = Me.Texte13 Then
 retour = msgBox("Modifier le Mot-De-Passe ?", vbYesNo & vbExclamation, "Mot-De-Passe Changé")
 
     If retour = 1 Then
 
DoCmd.RunSQL ("UPDATE T_Utilisateurs SET MotDePasse = Me.Texte13.Value " & _
                  " where MotDePasse = " & Me.Texte22.Value & " ;")
 
 
Exit Sub
End If
End If
End Sub

[jimbolion]

Angelinu bonjour,

Sans chargement de ta base, regarde bien ton code : tu affectes la valeur Me.Texte13.Value comme mot de passe alors que tu dois passer une variable issue de ton formulaire et de plus un champ texte est protégé par des quotes.

Code :

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

1
2
DoCmd.RunSQL ("UPDATE T_Utilisateurs SET MotDePasse = '" & Me.Texte13.Value & "'" & _
" where MotDePasse = '" & Me.Texte22.Value & "' ;")

J'ai pas essayé mais tu devrais pas être loin de la vérité

@ bientôt

jimbolion

[Angelinu]

Salut Jimbolion,

Et surtout grand merci car ça fonctionne parfaitement, 2 jours que je galère avec la certitude que mon problème vient sûrement des quotes et autres apostrophes sans trouver une discussion qui réponde exactement à mon souci de syntaxe...
Alors Re-merci! je sis vraiment nul en dictée de syntaxe vba SQL!!

Bonne journée, bon weekend et je ne sais pas si tu aimes le sport mais ce soir c'est Hanball time! Allez les bleus en route pour une 5iém étoile!

[jimbolion]

Angelinu,

pour le sport à 200% et de plus le handball (nous le pratiquons à haut niveau en famille mais çà est une autre histoire)

@ bientôt

jm