Problème de virgule avec UPDATERésolu

Question

Bonjour j'ai une erreur que j'arrive pas traiter et je voudrais que quelqu'un m'aide à la trouvée. Quand j'appuie sur le bouton valider une console s'affiche et me dis ceci: "Erreur exécution '3075' Erreur de syntaxe (virgule) dans l'expression << Nom_entreprise = maValeur modifier etc....>> C'est à dire que toutes mes valeurs sont reconnu mais je comprends pas cette erreur celle-ci! Merci de bien vouloir me venir en aide!!! Code Visual Basic :sql_Valider "Update T_Prospection Set Nom_entreprise '" & Forms!client.TxtNomSociete & "', Fax= '" & Forms!client.TxtFaxSociete & "',Telephone = '" & Forms!client.TxTtelSociete & "', Mail = '" & Forms!client.TxtMailSociete & "', Siege_social= '" & Forms!client.TxtSiegeSocialAdresse & "', Adresse = '" & Forms!client.TxtAdresse1 & "', Contact_nom = '" & Forms!client.TxtNomPrenom1 & "', Contact_poste = '" & Forms!client.TxtPoste1 & "', Contact_mail = '" & Forms!client.TxtMail1 & "', Contact_telephone_direct = '" & Forms!client.TxtTelDirect1 & "', Contact_telephone_portable = '" & Forms!client.TxtTelPortable1 & "', Mail_envoye = '" & Forms!client.TxtDateMailEnvoye & "', Contact_telephone = '" & Forms!client.TxtDateContactTel & "', Contact_terrain = '" & Forms!client.TxtDateContactTerrain & "', RDV_realise = '" & Forms!client.TxtDateRdvRealise & "', Date_de_relance = '" & Forms!client.TxtDateARelancer & "', Num_entreprise = '" & Forms!client.TxtIndiceClient & "'" sql_Valider sql_Valider & " where Nom_entreprise '" & Forms!client.TxtNomSociete & " ',Fax= '" & Forms!client.TxtFaxSociete & "',Telephone = '" & Forms!client.TxTtelSociete & "', Mail = '" & Forms!client.TxtMailSociete & "', Siege_social= '" & Forms!client.TxtSiegeSocialAdresse & "', Adresse = '" & Forms!client.TxtAdresse1 & "', Contact_nom = '" & Forms!client.TxtNomPrenom1 & "', Contact_poste = '" & Forms!client.TxtPoste1 & "', Contact_mail = '" & Forms!client.TxtMail1 & "', Contact_telephone_direct = '" & Forms!client.TxtTelDirect1 & "', Contact_telephone_portable = '" & Forms!client.TxtTelPortable1 & "', Mail_envoye = '" & Forms!client.TxtDateMailEnvoye & "', Contact_telephone = '" & Forms!client.TxtDateContactTel & "', Contact_terrain = '" & Forms!client.TxtDateContactTerrain & "', RDV_realise = '" & Forms!client.TxtDateRdvRealise & "', Date_de_relance = '" & Forms!client.TxtDateARelancer & "', Num_entreprise = '" & Forms!client.TxtIndiceClient & "';" DoCmd.RunSQL (sql_Valider) MsgBox ("Modification effectuer")[quote][quote][quote][quote][quote][quote][quote]/quote/quote/quote/quote/quote/quote/quote

andy331 · Accepted Answer

sql_Valider = "Update T_Prospection Set Nom_entreprise = '" & Forms!client.TxtNomSociete & "', Fax= '" & Forms!client.TxtFaxSociete & "',Telephone = '" & Forms!client.TxTtelSociete & "', Mail = '" & Forms!client.TxtMailSociete & "', Siege_social= '" & Forms!client.TxtSiegeSocialAdresse & "', Adresse = '" & Forms!client.TxtAdresse1 & "', Contact_nom = '" & Forms!client.TxtNomPrenom1 & "', Contact_poste = '" & Forms!client.TxtPoste1 & "', Contact_mail = '" & Forms!client.TxtMail1 & "', Contact_telephone_direct = '" & Forms!client.TxtTelDirect1 & "', Contact_telephone_portable = '" & Forms!client.TxtTelPortable1 & "', Mail_envoye = '" & Forms!client.TxtDateMailEnvoye & "', Contact_telephone = '" & Forms!client.TxtDateContactTel & "', Contact_terrain = '" & Forms!client.TxtDateContactTerrain & "', RDV_realise = '" & Forms!client.TxtDateRdvRealise & "', Date_de_relance = '" & Forms!client.TxtDateARelancer & "', Num_entreprise = '" & Forms!client.TxtIndiceClient & "'"
sql_Valider sql_Valider & " WHERE Num_entreprise Forms!client.TxtIndiceClient"


Elle marche j'avais juste mal orthographiée certain mon 
Je te remercie pour ton aide

PCPT · Answer

salut,


tu fais un UPDATE, donc une mise à jour d'un enregistrement existant

1 => pourquoi "tout mettre à jour", si tu le fais pour (WHERE) l'enregistrement a déjà tous les champs actuels?

autrement dit le seul moyen de faire l'update (d'avoir une raison de le faire) est de modifier une des valeurs, ce qui fait qu'on n'a plus d'enregistrement concordant, donc rien à updater

2 => plusieurs CRITèRES se séparent par AND (après le where), pas par des virgules. voilà la raison du message d'erreur

mais de toute façon tu n'en as pas besoin (ces critères). l'ID suffit


une petite fonction pratique :

Function sq(ByVal s As String) As String 'Safe Quote
    sq = "'" & Replace(s, "'", "''") & "'"
End Function

et ta requête devient :
With Forms!client
    sql_Valider = "UPDTAE T_Prospection " & _
                  "SET Nom_entreprise " & sq(.TxtNomSociete.Text) & ", Fax " & sq(.TxtFaxSociete.Text) & ", Telephone = " & sq(.TxTtelSociete.Text) & ", Mail = " & sq(.TxtMailSociete.Text) & ", Siege_social = " & sq(.TxtSiegeSocialAdresse.Text) & ", Adresse = " & sq(.TxtAdresse1.Text) & ", Contact_nom = " & sq(.TxtNomPrenom1.Text) & ", Contact_poste = " & sq(.TxtPoste1.Text) & ", Contact_mail = " & sq(.TxtMail1.Text) & ", Contact_telephone_direct = " & sq(.TxtTelDirect1.Text) & ", Contact_telephone_portable = " & sq(.TxtTelPortable1.Text) & ", Mail_envoye = " & sq(.TxtDateMailEnvoye.Text) & ", Contact_telephone = " & sq(.TxtDateContactTel.Text) & ", Contact_terrain = " & sq(.TxtDateContactTerrain.Text) & ", RDV_realise = " & sq(.TxtDateRdvRealise.Text) & ", Date_de_relance = #" & .TxtDateARelancer & "# " & _
                  "WHERE Num_entreprise = " & .TxtIndiceClient & ";"
End With

++
[hr]

andy331 · Answer

ça marche pas!!
Il n'y aurait pas une façon la plus simple possible de la faire?
Merci

Renfield · Answer

quelle requete as tu soumise ?


Renfield - Admin CodeS-SourceS - MVP Visual Basic

Problème de virgule avec UPDATE

4 réponses

Votre réponse

Discussions similaires