Discussion :

[andy331]

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 sql :

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

1
2
3
4
 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")

[LedZeppII]

Bonsoir,

Il y a un problème dans la clause WHERE.

C'est ...

Code :

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

WHERE Condition1 AND Condition2 AND Condition3 ...

et pas ...

Code :

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

WHERE Condition1 , Condition2 , Condition3 ...

Ceci étant, je m'étonne du nombre de conditions dans la clause WHERE.
Qui plus est, tu demandes à ce que les champs soient égaux aux valeurs que tu t'apprêtes à y mettre.

Si Num_entreprise est la clé de ta table T_Prospection :

Code :

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

1
2
    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 & "'"
    sql_Valider = sql_Valider & " WHERE Num_entreprise = '" & Forms!client.TxtIndiceClient & "';"

Autre point.
La syntaxe que tu utilises pour affecter une valeur à un champ, est toujours celle correspondant à un champ de type texte.
Je doute que tes champs soient tous de type texte.

Le plus simple serait de créer une requête "Mise à jour" et de l'exécuter avec DoCmd.Openquery.
Tu peux faire référence à des contrôles d'un formulaire dans une requête sauvegardée dans Access.
Si le format d'affichage des contrôles est en adéquation avec le champ de destination, ça devrait bien se passer.
Par exemple "Date abrégé" pour le contrôle TxtDateContactTerrain si le champ Contact_terrain est de type Date/Heure.

A+

[andy331]

Merci a toi pour ton aidee