如何让一个不符合输入内容的控件重新获得焦点？

panjianhui

文本框[开始日期]的"数据更新后事件"如下:

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

me.其它控件.serfocus
me.开始日期.SetFocus

panjianhui

我试了一下，是不是这样啊：
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