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/)
Powered by Discuz! X3.3