如何窗体文本非空限制

我同意

在窗体中一个文本对象作为数据输入,想限制为非空.在属性里设置了is not Null规则,输空格时会有提示,但直接回车就不起作用了.如何是好?

谢聪哥指点！为节省起见，不单独加贴了。

[此贴子已经被作者于2003-12-17 13:14:31编辑过]

LYP6160

文本框的更新事件中用VBA作一个判别提示

wuyuanhui

比如：
if isnull(字段名) then
cancel=true
endif

我同意

问题似乎没解决,还是看例子诊治一下吧.谢了!

LYP6160

看下，这样可以了吗？

我同意

聪哥果然了得,小弟佩服不已.

我同意

可是,好象提示框结束后,焦点没有返回原文本框(那句me.text15.setfocus没起作用).如果要求完美的话,如何回焦点啊?

我试用这样方法实现,当下一个却省获得焦点的项目在得到焦点时判断text15是否为空,如为空则焦点交还text15.

[此贴子已经被作者于2003-12-18 10:37:26编辑过]

书生无名

这样方法实现,当下一个却省获得焦点的项目在得到焦点时判断text15是否为空,如为空则焦点交还text15.
代码是：

Private Sub CloseForm_GotFocus()
If Nz([Text15]) = "" Then  '验证是否为空
   
   Me.Text15.SetFocus
   
End If
End Sub

书生无名

不过这样做好像有些烦琐。能不能一步搞定？

书生无名

Private Sub Text15_AfterUpdate()


If IsNull(Text15) Then

MsgBox "请输入数字"

Me.CloseForm.SetFocus

Me.Text15.SetFocus

[Text15] = 0

End If

End Sub