Office中国论坛/Access中国论坛

标题: 关于文本框Lostfocus [打印本页]

作者: wonderfeng 时间: 2006-8-22 01:21
标题: 关于文本框Lostfocus
实现情况：当回收数量文本框中为空时，不能losefocus,不能跳到下一个文本框

请问如何实现

现有代码：

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

作者: laiguiyou 时间: 2006-8-22 02:40
在更新事件中写:

If Isnull(me.回收数量) then

MsgBox "Data Must Be Entered Here"

cancel=true

me.回收数量.setfocus

end if

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

作者: wonderfeng 时间: 2006-8-22 02:50
不大明白

能细解么？

只有afterupdate 和beforeupdate 啊

用哪个？

作者: laiguiyou 时间: 2006-8-22 02:53
应在下一个文本框中的GotFocus事件中写:

If Isnull(me.回收数量) then

MsgBox "Data Must Be Entered Here"

me.回收数量.setfocus

end if

作者: wonderfeng 时间: 2006-8-22 03:00
高见！

解决了！

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)