标题: 判断多个文本内容为空时，弹出MSGBOX应何如写 [打印本页] 作者: sunny-xie 时间: 2007-10-18 12:20 标题: 判断多个文本内容为空时，弹出MSGBOX应何如写 如：现在要判断的条件有
编号，名称，单号，日期等，
要判断他们的值有一个或者多个为空时，弹出“请输XXX”，如果都不为空就弹出“保存成功”
if isnull(me.编号) then
msgbox "请输入编号"
else
msgbox "保存成功"
end if
多个怎样判断？作者: 盗到稻 时间: 2007-10-18 14:13
if isnull(me.编号) then
msgbox "请输入编号"
me.编号.SetFocus
exit sub
end if
if isnull(me.名称) then
msgbox "请输入名称"
me.名称.SetFocus
exit sub
end if
if isnull(me.单号) then
msgbox "请输入单号"
me.单号.SetFocus
exit sub
end if
if isnull(me.日期) then
msgbox "请输入日期"
me.日期.SetFocus
exit sub
end if