访问 VBA for 循环（日期）

Question

我已尝试在访问 VBA 中循环从 2011/12/04 到 2011/12/10 的数据。但是当我尝试运行代码时会出现“3075”的错误。我无法弄清楚我的代码的问题在哪里。希望你能帮我解决这个问题！

Private Sub createQry()

'Create Query in Access
Dim db As DAO.Database
Set db = CurrentDb
Dim qdf As DAO.QueryDef
Dim newSQL As String




For d = DateSerial(2011, 12, 4) To DateSerial(2011, 12, 10)


newSQL = " SELECT TAXIDATA.HkDt, TAXIDATA.DevID, TAXIDATA.HkTm, TAXIDATA.Lat, TAXIDATA.Lon, TAXIDATA.FlagDown" 'sql code
newSQL = newSQL & "FROM TAXIDATA"
newSQL = newSQL & "WHERE(((TAXIDATA.HkDt) = #" & d & "#))"
newSQL = newSQL & " ORDER BY TAXIDATA.HkDt, TAXIDATA.DevID, TAXIDATA.HkTm; "


Set qdf = db.CreateQueryDef(d, newSQL)                  'd = name of the query

'Export the Access query into excel

Dim XL As Excel.Application
Dim wbTarget As Workbook

Dim queryD As QueryDef
Dim RecordA As Recordset

Set queryD = CurrentDb.QueryDefs(d)
Set RecordA = queryD.OpenRecordset()

Set XL = CreateObject("Excel.application")

Set wbTarget = XL.Workbooks.Open("C:\Users\user\Desktop\Data\123.xlsx")    ' location of the workbook

wbTarget.Worksheets(d).Cells.ClearContents                         ' name of the worksheets in the workbook

wbTarget.Worksheets(d).Cells(1.1).CopyFromRecordset RecordA

wbTarget.Save

wbTarget.Close
Set wbTarget = Nothing
Set XL = Nothing
Set queryD = Nothing



   Debug.Print Days  'Prints the "Days" value in the immediate window.
Next d


End Sub

Answer 1

这真的不太可能与for 循环有关。 可能的罪魁祸首是您的查询：

将 newSQL 赋值更改为：

newSQL = " SELECT TAXIDATA.HkDt, TAXIDATA.DevID, TAXIDATA.HkTm, TAXIDATA.Lat, TAXIDATA.Lon, TAXIDATA.FlagDown" 'sql code
newSQL = newSQL & " FROM TAXIDATA"
newSQL = newSQL & " WHERE TAXIDATA.HkDt = #" & Format(d, "yyyy/MM/dd") & "#"
newSQL = newSQL & " ORDER BY TAXIDATA.HkDt, TAXIDATA.DevID, TAXIDATA.HkTm; "

这修复了以下错误：

1. 缺少空格（在第 3 行和第 4 行添加了空格）
2. 未指定日期格式，第 3 行添加格式功能（有效格式为 yyyy/MM/dd 或 MM/dd/yyyy，未指定将根据区域设置导致错误

下次请先调试你的SQL，如果你有很多错误，我可能会错过。