Office中国论坛/Access中国论坛

标题: 如何让一个不符合输入内容的控件重新获得焦点？ [打印本页]

作者: panjianhui 时间: 2008-3-7 23:39
标题: 如何让一个不符合输入内容的控件重新获得焦点？
文本框[开始日期]的"数据更新后事件"如下:

Private Sub 开始日期_AfterUpdate()
If Me!开始日期 < #1/8/2008# Then
MsgBox "Sorry，该数据库不存在2008年1月8日以前的销售数据，请选择2008年1月8日以后的日期！", vbExclamation, "系统提示！"
Me!开始日期.SetFocus
Exit Sub
Else
Me!截止日期.SetFocus
End If
End Sub

按理说,我在窗体--文本框[开始日期]里输入 #2008-1-1# 后回车,跳出提示对话框,然后光标就应该回到控件[开始日期],可是我的以上语句运行以后为什么焦点没有回到[开始日期],而是直接到下一控件[截止日期]呢?
请教?!

[ 本帖最后由 panjianhui 于 2008-3-7 23:53 编辑 ]

作者: tz-chf 时间: 2008-3-8 09:25
me.其它控件.serfocus
me.开始日期.SetFocus

作者: panjianhui 时间: 2008-3-15 23:39
我试了一下，是不是这样啊：
Private Sub 开始日期_BeforeUpdate(Cancel As Integer)
If Me!开始日期 < #1/8/2008# Then
MsgBox "Sorry，该数据库不存在2008年1月8日以前的销售数据，请选择2008年1月8日以后的日期！", vbExclamation, "系统提示！"
Cancel = True
Else
End If
End Sub

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