sql - 访问 VBA SQL where 子句问题

Question

我需要一些帮助。当我运行以下查询时，如果我在 where 中包含 Pkg 编号部分，我将不会得到任何结果。当我在 Access 中运行查询时，它工作正常。vars 包号示例 1_282 Rptdt 201301

Dim db As Database 'generic database object
Dim rst As Recordset 'this is going to hold the query result
Set db = CurrentDb
Dim PKG As Double
Dim rptDT As Double
Dim wireDT As Date

Set rst = db.OpenRecordset("SELECT Max(tbl_Revision.Revision_Number) as Revision_Number FROM tbl_Revision" & _
" where (tbl_Revision.RUN_YR_MO=" & rptDT & ")" & _
" and (tbl_Revision.Package_Number=" & PKG & ")")

getRevision = rst!Revision_Number + 1

Answer 1

如果您希望 1_282 起作用，则 PKG 不能是 Double。所以让它成为一个字符串。您还必须添加引号：

" where (tbl_Revision.RUN_YR_MO='" & rptDT & "')" & _