Discussion :

[Noriam]

Bonjour,

J'ai un formulaire avec des zones de texte et un bouton modifier.
Lorsque je clique sur modifier, je souhaite mettre à jour une table avec les données inscrites dans les zones de texte.
Voici mon code simplifié :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Cmd_Modifier_Click()
 
Dim T_Stagiaire As Database
Dim SQL As String
 
SQL = "UPDATE T_Stagiaire " & _
"SET T_Stagiaire.[Nom_JeuneFille] = Nom_JeuneFille" & _
"WHERE T_Stagiaire.[ID_Stagiaire] = ID_Stagiaire"
 
DoCmd.RunSQL SQL
 
End Sub

Le champs de la table reste le même. ça ne modifie rien du tout.
Savez-vous pourquoi, s'il vous plait ?
Merci d'avance.

[Noriam]

J'ai essayé de vérifier que les données était bien récupérées en les mettant dans des variables pour les afficher avec msgbox.

Première erreur trouvée :
T_Stagiaire.[ID_Stagiaire]
Erreur de compilation. Membre de méthode ou données introuvable.

Il ne reconnait pas le champs de la table. ça ne risque pas de marcher.

[Jean-Philippe André]

Salut,

il te manque l'espace entre Nom_JeuneFille et WHERE

[Noriam]

Merci

J'écrivais aussi Nom_JeuneFille au lieu de me.Nom_JeuneFille

[tee_grandbois]

Bonsoir,

J'écrivais aussi Nom_JeuneFille au lieu de me.Nom_JeuneFille

oui mais dans le cas d'utilisation de variables il faut les mettre hors des double-quotes (" ")

Code :

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

1
2
3
SQL = "UPDATE T_Stagiaire " & _
"SET T_Stagiaire.[Nom_JeuneFille] =""" & Me.Nom_JeuneFille & """ & _
" WHERE T_Stagiaire.[ID_Stagiaire] ="  & Me.ID_Stagiaire

ou

Code :

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

1
2
3
SQL = "UPDATE T_Stagiaire " & _
"SET T_Stagiaire.[Nom_JeuneFille] =" & chr(34) & Me.Nom_JeuneFille & chr(34) & _
" WHERE T_Stagiaire.[ID_Stagiaire] ="  & Me.ID_Stagiaire

[Noriam]

Merci