请朋友给看看这段判断空值的代码！

sxgaobo

If DCount("[数量]", "[丢损记录临时]", "[数量]<=0 or isnull([数量])") > 0 Then

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

End If

为什么 数量 为空时不给提示啊？

sxgaobo

还是斑竹厉害啊！谢谢了！谢谢斑竹和各位的热情相助啊！！！

sxgaobo

还是斑竹厉害啊！谢谢了，谢谢斑竹和各位的热情相助啊！！！

海狸先生

If DCount("*", "丢损记录临时", "NZ(数量)<= 0") > 0 Then

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

End If

sgrshh29

以下是引用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编辑过]

sxgaobo

对不起！可能是我表达的不够清楚我想要的是，当 丢损记录临时 表中所有记录的 数量 字段的值有一个<=0或者为空时，系统都给予提示！

sgrshh29

那当然,因为你的表达式就是这个意思.你可以修改你的表达式,直到符合你的要求为止.

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

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

sxgaobo

只有一条的 数量 为空时可以，当第二条的 数量 为空时就不可以了！！！

LucasLynn

因为你的表中根本无记录。

sgrshh29

以下是引用sxgaobo在2005-11-9 13:39:00的发言：



还是不行啊！！！

什么地方问题啊？