Pble de syntaxe

salut,

si c'est bien une requête de base de données en SQL ton problème est qu'il ne faut pas épéter les "SET" il faut en mettre qu'un.

merci,mais ca ne marche pas ; je veux faire un module en vba sous access pour MAJ d'une bd selon un fichier qu'on m'envoi tt les jours ,je mets mon code sans les set de depart mais c pareil ,il me met une erreur "erreur d'execution 3265 elmt non trouvé ds cette collection"
si tu peux faire qqc
merci;

Option Compare Database

Sub TestMAJ2()
Dim wrk As Workspace
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim SQL As String
Dim SQL_S, SQL_U, SQL_I As String
Set wrk = DBEngine.Workspaces(0)
Set db = DBEngine.OpenDatabase("D:\SAFIG\SAFIG.mdb")
SQL = "SELECT * FROM Import ;"
Set rs = db.OpenRecordset(SQL, dbOpenForwardOnly, dbReadOnly)
Do While Not rs.EOF

MsgBox (rs("Clé"))

SQL_S = "SELECT Clé FROM SAFIG where Clé =" & rs("Clé") & ";"
Set conn = CurrentProject.Connection
conn.Execute SQL

If Not (rs.EOF Or rs.BOF) Then

'Si clé trouvée, Requête pour UPDATE dans SAFIG
SQL_U = "UPDATE SAFIG " & _
"SET IDREMISE = " & rs("Idremise") & "," & _
" perimetre = " & rs("perimetre") & "," & _
" DateRemise2 = " & rs("DateRemise2") & "," & _
" Vacation = " & rs("Vacation") & "," & _
" FileInteg = " & rs("FilInteg") & "," & _
" FileCloture = " & rs("FileCloture") & "," & _
" Restitution = " & rs("Restitution") & "," & _
" MotifRejet = " & rs("MotifRejet") & "," & _
" DestRejet = " & rs("DestRejet") & "," & _
" Adresse1 = " & rs("Adresse1") & "," & _
" Adresse2 = " & rs("Adresse2") & "," & _
" Adresse3 = " & rs("Adresse3") & "," & _
" Adresse4 = " & rs("Adresse4") & "," & _
" Centre = " & rs("Centre") & "," & _
" Origine = " & rs("Origine") & "," & _
" RefAXA = " & rs("RefAXA") & "," & _
" URL = " & rs("URL") & "," & _
" Lignes = " & rs("Lignes") & "," & _
" Pages = " & rs("Pages") & "," & _
" EnCours = " & rs("EnCours") & "WHERE Clé = " & rs("Clé") & ";"
MsgBox ("update" & SQL_U)
Else
'Requête pour insertion dans SAFIG

SQL_I = "INSERT INTO SAFIG SELECT Import.* FROM Import WHERE Clé=" & rs("Clé") & ";"

MsgBox ("insert" & SQL_I)
End If
rs.MoveNext
Loop

End Sub