Erreur d'execution

Question

Salut a tous

Je suis en train de developper sous access et j'ai un petit probleme lorsque je lance mon code j'ai une erreur donc voici mon code et l'erreur en question:

Voici le code:
Public Function TraitementFichier()


'Variables
Dim Db1 As Database
Dim Insertion As String
Dim Requete As String



'On Error GoTo CalculEcheance_Error:


'Ouverture de la base
Set Db1 = CurrentDb()


'-----------------------------------
'DoCmd.RunSQL "DELETE * FROM TableTest2"


Requete = "SELECT 'EB' AS Expr1, '' AS Expr2, GZCRPDTA_F47026.SYDOCO, GZCRPDTA_F47026.SYSHAN,"
Requete = Requete & "[CLIENT IER].NOM_CLIENT, GZCRPDTA_F4706.ZAADD1, GZCRPDTA_F4706.ZAADD2,"
Requete = Requete & "GZCRPDTA_F4706.ZAADD3, GZCRPDTA_F4706.ZACTY1, [CLIENT IER].NOM_PAYS,"
Requete = Requete & "GZCRPDTA_F4706.ZAADDZ, 0 AS Expr3, ([SYDOCO] & [SYDCTO]) AS NUM_CDE,"
Requete = Requete & "GZCRPDTA_F47026.SYDRQJ, Hour(0) AS Expr4, GZCRPDTA_F47026.SYPPDJ,"
Requete = Requete & "GZCRPDTA_F4201.SHVR01, '' AS Expr5, GZCRPDTA_F4201.SHDEL1, GZCRPDTA_F4201.SHDEL2,"
Requete = Requete & "'' AS Expr6, [CLIENT IER].NOM_MAGASIN, GZCRPDTA_F4201.SHFRTH,"
Requete = Requete & "[CLIENT IER].NOM_CONTACT, '' AS Expr7, '' AS Expr8, '' AS Expr9, 0 AS Expr11,"
Requete = Requete & "[CLIENT IER].CODE_TRANSPORTEUR, 'C' AS Expr10, GZCRPDTA_F4201.SHZON"Requete Requete & "FROM ((GZCRPDTA_F47026 LEFT JOIN [CLIENT IER] ON GZCRPDTA_F47026.SYSHAN"Requete Requete & "[CLIENT IER].NO_CLIENT) INNER JOIN GZCRPDTA_F4201 ON (GZCRPDTA_F47026.SYKCOO"Requete Requete & "GZCRPDTA_F4201.SHKCOO) AND (GZCRPDTA_F47026.SYDCTO GZCRPDTA_F4201.SHDCTO) AND"Requete Requete & "(GZCRPDTA_F47026.SYDOCO GZCRPDTA_F4201.SHDOCO)) LEFT JOIN GZCRPDTA_F4706 ON"Requete Requete & "GZCRPDTA_F47026.SYSHAN GZCRPDTA_F4706.ZAAN8"


'Insertion = "INSERT INTO TableTest2 (blabla, num) SELECT bla, numerique FROM TableTest1"
DoCmd.RunSQL Requete, -1
'-----------------------------------
CalculEcheance_Exit:
    Exit Function


CalculEcheance_Error:
    'MsgBox Error$
    Resume CalculEcheance_Exit


End Function

Voici l'erreur:
Erreur d'&#233;xecution '3075':


Erreur de syntaxe(op&#233;rateur absent)dans l'expression
'GZCRPDTA_F4201.SHFZONFROM((GZCRPDTA_F47026 LEFT JOIN 
[CLIENT IER] ON GZCRPDTA_F47026.SYSHAN = [CLIENT 
IER].NO_CLIENT) INNER JOIN GZCRPDTA_F4201 ON 
(GZCRPDTA_F47026.SYKCOO =GZCRPDTA_F4201.SHKCOO) AND 
(GZCRPDTA_F47026.SYDCTO = GZCRPDTA_F4201.SHDCTO) 
AND(GZCRP'.

cs_EXCLUSIF · Answer

Salut,



Dans ta premi&#232;re ligne d'erreur le "FROM" est coll&#233; &#224; un des champs de ta table.

eXclusif

rieuxg · Answer

Exact mais j'ai deja corriger cette erreur et &#231;a m'a creer une auter erreur:
une application ExecutionSql necessite un argument consistant pour une requete SQL
j'ai resolu le probleme en utilisant:
Set myRec = Db1.OpenRecordset(Requete) au lieu du runSQL
mais c'est de la bidouille et je sais pas si marche super disons qu'il n'y a plus d'erreur

Erreur d'execution

2 réponses

Discussions similaires