Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

query base access

H

haumesser

Guest
Bonjour,
Quelqu'un peut m'aider sur ce code qui ne marche pas:
Erreur 1004 Erreur de synthase SQL

Merci beaucoup

code:Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 17/09/2004 par tempo
'
Dim DATEDEBUT As Date
Dim DATEFIN As Date


Sheets("Critere").Select
DATEDEBUT = Range("B1").Value
DATEFIN = Range("B2").Value

Sheets("SI").Select
Range("A1").Select


With Selection.QueryTable
.Connection = _
"ODBC;DSN=MS Access Database;DBQ=E:\TestStock.mdb;DefaultDir=E:\;DriverId=25;FIL=MS Access;MaxBufferSize=2048;PageTimeout=5;"
.CommandText = Array( _
"SELECT `Stock Initial`.ITMREF_0, `Stock Initial`.STA_0, `Stock Initial`.SommeDeQTYSTU_0, `Stock Initial`.SommeDeQTYPCU_0, `Stock Initial`.CREDAT_0" & Chr(13) & "" & Chr(10) & "FROM `E:\TestStock`.`Stock Initial` `Stock Initial`" & Chr(13) & "" _
, _
"" & Chr(10) & "WHERE (`Stock Initial`.CREDAT_0<{" & Chr(39) & DATEDEBUT & Chr(39) & "})" & Chr(13) & "" & Chr(10) & "ORDER BY `Stock Initial`.ITMREF_0, `Stock Initial`.STA_0" _
)
.Refresh BackgroundQuery:=False
End With
End Sub
 
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…