1 pièce(s) jointe(s)
Syntaxe sur une requête UPDATE
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:
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 |
