当文本框为空提示要输入，焦点并返回，

pwj2009 · 发表于 2010-12-8 08:34:03

当文本框为空提示要输入，焦点并返回，.该怎样做？

kangking · 发表于 2010-12-8 09:46:12

If IsNull(Text0) Or Len(Trim(Text0)) = 0 Then
MsgBox "请录入数据"
Text0.SetFocus
End If

鱼儿游游 · 发表于 2010-12-8 09:52:01

本帖最后由鱼儿游游于 2010-12-8 09:52 编辑

If LEN(NZ(ME.Text0,"")) = 0 Then
MsgBox "录入的数据为空，请重新录入！"
ME.Text0.SetFocus
End If

pwj2009 · 发表于 2010-12-8 14:16:47

本帖最后由 pwj2009 于 2010-12-8 14:17 编辑

这样做。焦点不返回空值的文本框啊。我在失去焦点哪里吧代码写进去。当我从空的文本框1点去另一个文本框2的时候，提示空值。但焦点还是在文本框2的，。没有返回文本框1！

wanshan · 发表于 2010-12-8 14:27:06

如果要达到为空不能离开焦点的效果，要用退出事件，然后cancel＝true

wanshan · 发表于 2010-12-8 14:41:12

Private Sub Text0_Exit(Cancel As Integer)
If IsNull(Me.Text0) Or Me.Text0 = "" Then
MsgBox "text不能为空！"
Cancel = True
End If
End Sub

帐号		自动登录	找回密码
密码			注册

[窗体] 当文本框为空提示要输入，焦点并返回，

群介绍
主题无相 (随机显示版	同地区群块其他地区)