Office中国论坛/Access中国论坛

标题: 求救，怎样在VBA中取出带条件的某一字段的值？ [打印本页]

作者: jsjdn2004 时间: 2005-12-4 08:54
标题: 求救，怎样在VBA中取出带条件的某一字段的值？
我试了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 时间: 2005-12-4 15:45
先去掉一个试试，问题可能出在日期的格式上。

作者: zyp 时间: 2005-12-4 18:31
(1)将st2变量直接定义为日期格式
（2）"[生产任务表查询]"不要方括号

作者: cnhbjm 时间: 2005-12-4 21:13
j = (DLookup("[数量]", "生产任务表查询", "[生产时间]=#" & format(st2,"yyyy-m-d") & "# AND [序号]=" & xh ))
试试?

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)