关于文本框Lostfocus

wonderfeng

实现情况：当回收数量文本框中为空时，不能losefocus,不能跳到下一个文本框

请问如何实现

现有代码：

Private Sub 回收数量_LostFocus()
If Me.回收数量.Text = "" Then
MsgBox "Data Must Be Entered Here"
Me.回收数量.SetFocus
End If
End Sub

laiguiyou

在更新事件中写:

If Isnull(me.回收数量) then

MsgBox "Data Must Be Entered Here"

cancel=true

me.回收数量.setfocus

end if

[此贴子已经被作者于2006-8-21 18:50:32编辑过]

wonderfeng

不大明白

能细解么？

只有afterupdate 和beforeupdate 啊

用哪个？

laiguiyou

应在下一个文本框中的GotFocus事件中写:


If Isnull(me.回收数量) then





MsgBox "Data Must Be Entered Here"


me.回收数量.setfocus


end if

wonderfeng

高见！

解决了！