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

sxgaobo

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

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编辑过]

海狸先生

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

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

End If

sxgaobo

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

sxgaobo

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