Discussion :

[seyflo]

Bonjour à tous,
Voila j'ai un projet à faire (réaliser une base de donnée d'anciens étudiants) et donc pour mettre à jour des données dans les tables j'utilise du code vba sous un bouton dans access et apparement j'aurais une erreur de syntaxe, j'ai essayé diverses syntaxes mais je n'arrive toujours pas à regler le probléme, voici ce que j'ai :

Code :

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

 DoCmd.RunSQL "Update Etudiant SET [Rue_etu]= " & Forms!Anciens_Etudiants!RueEtu & "  ,[Code_post_etu]=" & Forms!Anciens_Etudiants!CodePEtu & ",[Ville_etu]=" & Forms!Anciens_Etudiants!VilleEtu & ",[Statut]=' " & sit & " ' WHERE ([Nom_etu]=' " & Forms!Anciens_Etudiants!Nom & " ' & [Prenom_etu]=' " & Forms!Anciens_Etudiants!Prenom & " ' & [Annee_obtention_lic]=' " & Forms!Anciens_Etudiants!AnneeLicence & " ');"

merci beaucoup, je compte sur vous

[Aegnor]

Bonjour,

Oui, il y a quelques erreurs dans la chaine de caractere, notamment dans la clause Where où il faut utiliser "AND" au lieu de " & ".
Essayer avec :

Code :

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

1
2
 
DoCmd.RunSQL "Update Etudiant SET [Rue_etu]= '" & Forms!Anciens_Etudiants!RueEtu & "' ,[Code_post_etu]= '" & Forms!Anciens_Etudiants!CodePEtu & "', [Ville_etu]= '" & Forms!Anciens_Etudiants!VilleEtu & "', [Statut]= '" & sit & "' WHERE ([Nom_etu]= '" & Forms!Anciens_Etudiants!Nom & "') AND ([Prenom_etu]= '" & Forms!Anciens_Etudiants!Prenom & "') AND ([Annee_obtention_lic]= '" & Forms!Anciens_Etudiants!AnneeLicence & "');"

Un petit conseil : faites un debug.print de votre requête avant de l'exécuter, vous aurez ainsi le code SQL en entier et vous pourrez mieux voir. Autre possibilité : faites la requête avec l'éditeur, puis récupérez le SQL. Vous n'aurez plus qu'à changer les valeurs écrites en dur par vos variables formulaire.

cordialement,

[Jean-Philippe André]

salut,

une petite recommandation pour blinder ta saisie utilisateur, le code propose par Aegnor etant suffisant, penser a ajouter des double quotes en cas d'apostrophes dans tes valeurs a inserer :

Code :

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

1
2
 
DoCmd.RunSQL "Update Etudiant SET [Rue_etu]= '" & Replace(Forms!Anciens_Etudiants!RueEtu,"'","''") & "' ,[Code_post_etu]= '" & Replace(Forms!Anciens_Etudiants!CodePEtu,"'","''") & "', [Ville_etu]= '" & Replace(Forms!Anciens_Etudiants!VilleEtu,"'","''") & "', [Statut]= '" & Replace(sit,"'","''") & "' WHERE ([Nom_etu]= '" & Replace(Forms!Anciens_Etudiants!Nom,"'","''") & "') AND ([Prenom_etu]= '" & Replace(Forms!Anciens_Etudiants!Prenom,"'","''") & "') AND ([Annee_obtention_lic]= '" & Replace(Forms!Anciens_Etudiants!AnneeLicence,"'","''") & "');"

A verifier si les champs sont tous de type texte ou pas (notamment Annee_Obtention_Lic)

[seyflo]

merci beaucoup, sa fonctionne parfaitement !