如何在判断文本框空值，并提示后，将焦点回到空白的文本框内？

markatcn

我在用下面的VBA语句判断（成本）框内为空值，并提示后，如何将焦点回到（成本）框内，继续输入？

Private Sub 成本_LostFocus()
If IsNull(成本) = True Then
MsgBox "请填入正确的成本！"
End If
End Sub


简单问题困扰了我。

谢谢。

sgrshh29

用exit事件

markatcn

具体怎么写呢？麻烦写个例子可以吗？

wuaza

写在控件的更新前事件中
If IsNull(成本) = True Then
MsgBox "请填入正确的成本！"
cancel=true

markatcn

楼上的方法我试过了，没有用。空值也没有提示出来。

一点通

Private Sub 成本_LostFocus() '失去焦点事件
If IsNull(成本) Then
    MsgBox "请填入正确的成本！"
    Me.其它文本框.SetFocus '先移到别的文本框
    Me.成本.SetFocus '然后返回到成本文本框
End If
End Sub

[此贴子已经被作者于2006-4-22 22:15:21编辑过]

markatcn

搞定了，呵呵。

只是奇怪为什么必须要先把焦点移到别的框里面，然后再移回来？而不能直接在失去焦点之后移回来。



谢谢楼上的大大。

sgrshh29

以下是引用markatcn在2006-4-22 22:43:00的发言：


搞定了，呵呵。

只是奇怪为什么必须要先把焦点移到别的框里面，然后再移回来？而不能直接在失去焦点之后移回来。

谢谢楼上的大大。

Private Sub 成本_Exit(Cancel As Integer)
If IsNull(成本) Then
    MsgBox "请填入正确的成本！"
    Cancel = True
End If
End Sub

LJB

这也正是我想要的，爽呀