求救，怎样在VBA中取出带条件的某一字段的值？

jsjdn2004

我试了2种方法：
① st2="2005-10-8"
   xh=1
   j = (DLookup("[数量]", "[生产任务表查询]", "[生产时间]=#" & st2 & "# AND [序号]=" & xh ))
   MsgBox j
结果显示“运行时错误'2001'，您取消了前次的操作。
② Dim bb As Recordset
   st2="2005-10-8"
   xh=1
   str = "SELECT 生产任务.* FROM 生产任务 WHERE (((生产任务.生产时间)=#" _
   & st2 & "#) AND ((生产任务.序号)=" & xh & "));"
   Set bb = CurrentDb.OpenRecordset(str)
   bb.movefirst
   MsgBox bb!数量
   结果显示：运行时错误'3265'，这个集合中找不到此项目。

明明在"生产任务表"和"生产任务表查询"中有生产时间=2005-10-8和序号=1这个记录，但为什么不能显示呢？

tz-chf

先去掉一个试试，问题可能出在日期的格式上。

zyp

(1)将st2变量直接定义为日期格式
（2）"[生产任务表查询]"不要方括号

cnhbjm

  j = (DLookup("[数量]", "生产任务表查询", "[生产时间]=#" & format(st2,"yyyy-m-d") & "# AND [序号]=" & xh ))
试试?