Office中国论坛/Access中国论坛

标题: 请朋友给看看这段判断空值的代码! [打印本页]

作者: sxgaobo    时间: 2005-11-9 18:50
标题: 请朋友给看看这段判断空值的代码!
If DCount("[数量]", "[丢损记录临时]", "[数量]<=0 or isnull([数量])") > 0 Then

MsgBox "数量空", vbExclamation, "系统提示"

End If

为什么 数量 为空时不给提示啊?
作者: wuaza    时间: 2005-11-9 18:57
If DCount("[数量]", "[丢损记录临时]", [数量]&"<=0 or"& isnull([数量])) > 0
作者: sxgaobo    时间: 2005-11-9 20:04
谢谢 wuaza!可是不行啊,还是为空时不提示啊!我做了个例子,给看看好吗?

[attach]14057[/attach]


作者: wuaza    时间: 2005-11-9 20:23
dcount的第三个参数不能使用函数的。你还是用字段有效性规则吧。数量的有效性规则设为I“s Not Null And >0”
作者: sgrshh29    时间: 2005-11-9 20:45
If IsNull(DCount("[数量]", "[丢损记录临时]")) > 0 Or (DCount("[数量]", "[丢损记录临时]") <= 0) Then里面是表达式,所以外面是判断结果,只能是false或者true,不能用>0来判断。
作者: sxgaobo    时间: 2005-11-9 21:39
还是不行啊!!!
作者: sgrshh29    时间: 2005-11-9 21:58
以下是引用sxgaobo在2005-11-9 13:39:00的发言:



还是不行啊!!!





什么地方问题啊?
作者: LucasLynn    时间: 2005-11-9 22:43
因为你的表中根本无记录。
作者: sxgaobo    时间: 2005-11-9 22:59
只有一条的 数量 为空时可以,当第二条的 数量 为空时就不可以了!!!
作者: sgrshh29    时间: 2005-11-9 23:10
那当然,因为你的表达式就是这个意思.你可以修改你的表达式,直到符合你的要求为止.

If DCount("Nz([数量])", "[丢损记录临时]", "IsNull([数量])") > 0 Or DCount("[数量]", "[丢损记录临时]", "[数量]<0") > 0 Then

[此贴子已经被作者于2005-11-9 15:46:07编辑过]


作者: sxgaobo    时间: 2005-11-9 23:33
对不起!可能是我表达的不够清楚我想要的是,当 丢损记录临时 表中所有记录的 数量 字段的值有一个<=0或者为空时,系统都给予提示!
作者: sgrshh29    时间: 2005-11-9 23:48
以下是引用sxgaobo在2005-11-9 15:33:00的发言:

对不起!可能是我表达的不够清楚

我想要的是,当 丢损记录临时 表中所有记录的 数量 字段的值有一个<=0或者为空时,系统都给予提示!



这下明白你的意思了

a=DCount("Nz([数量])", "[丢损记录临时]", "IsNull([数量])")

b=DCount("[数量]", "[丢损记录临时]", "[数量]<0")

If DCount("Nz([数量])", "[丢损记录临时]", "IsNull([数量])") > 0 Or DCount("[数量]", "[丢损记录临时]", "[数量]<0") > 0 Then

MsgBox "数量空值为" & a & "    数量负值为" & b, vbExclamation, "系统提示"



[此贴子已经被作者于2005-11-9 15:59:51编辑过]


作者: 海狸先生    时间: 2005-11-10 00:35
If DCount("*", "丢损记录临时", "NZ(数量)<= 0") > 0 Then

   MsgBox "数量空", vbExclamation, "系统提示"

End If
作者: sxgaobo    时间: 2005-11-10 01:41
还是斑竹厉害啊!谢谢了,谢谢斑竹和各位的热情相助啊!!!
作者: sxgaobo    时间: 2005-11-10 01:42
还是斑竹厉害啊!谢谢了!谢谢斑竹和各位的热情相助啊!!!




欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/) Powered by Discuz! X3.3