很烦的数据输入问题，如何避免控件值为空

简

在数据输入中，要求工厂，发件日期，产品代号，外协单位等几个控件的值不准为空，必须要在该控件上输入值后才能输入后面的值。所以如果为空，则msgbox提示，同时焦点落在该控件上。

我做出来的结果，不管是采用更新后事件，还是采用Form_Error事件，都是弹出msgbox提示，焦点老是不能落在控件，而是落在下一控件上，让我很无奈。

失去焦点事件虽然能达到上述目的，但又有个问题，就是不能返回上一个控件，而且稍不注意，所输入的数据值就乱套了。很郁闷。

传上附件，请大家帮忙参考下，在此先谢了。

bbpst

很烦的压缩文件,还要密码{:soso_e101:}

简

bbpst 发表于 2012-1-10 13:07
很烦的压缩文件,还要密码

怪了，以前从来不要密码的呀，估计是不是论坛改版的缘故呢。我解压了来看，密码就是：www.office-cn.net。你复制粘贴即可。

sxgaobo

只做了一个，依次类推。

Henry D. Sy

1. Dim ctl As Control
   
2.     For Each ctl In Me.Controls
   
3.         If TypeOf ctl Is TextBox Or TypeOf ctl Is ComboBox Then
   
4.             If IsNull(ctl) Then
   
5.                 MsgBox ctl.Name & "不可为空！"
   
6.                 ctl.SetFocus
   
7.                 Exit Sub
   
8.             End If
   
9.         End If
   
10.     Next

复制代码

简

很奇怪，楼上两位朋友的代码放在我的数据库里，焦点就是不落在为空的控件上。这是怎么回事呢，难道我的office2003有问题？？要知这个问题是很简单的，并不难，我杂就实现不了呢？

简

再问问，我用MsgBox Nz(Len(Me.cbogongchang))来测试，我对Me.cbogongchang不输入数据，这时弹出的提示框按理说应该为0，但显示的却是空白，这是怎么回事呢。

ycxchen

我理解，字段已有空值了，NZ才会为0，你的字段是否是此情况？

Henry D. Sy

MsgBox Nz(Len(Me.cbogongchang), 0)

kangking

用一个简单点的方法试一下，先用代码将焦点移开（随便移到一个可以接受焦点的控件，这个控件应该没有什么得到焦点、失去焦点等等的事件发生），然后再移回来。
其实有些事件中有一个cancel参数，在不满足你的要求时将其设置为true,焦点就不会移出，但有时这样很烦人的。