请教:为什么误输入2001-1-1时功能失灵?请大家试试看.

放弃　发表于：2008-11-19 20:45:31 　

Private Sub 日期_BeforeUpdate(Cancel As Integer)
If 日期 > Date Or 日期 < Date - 7 Then '只允许输入一星期之内发生的日期
MsgBox "输入日期可能不对,请复核准确."
End If
End Sub

放弃发表于：2008-11-19 21:07:14

是系统日期设置为2001-1-1产生的,问题是为什么不包含这特殊的一天.

蟹仔发表于：2008-11-20 09:52:19

没这个问题啊！输入2001-1-1会提示MsgBox

蟹仔发表于：2008-11-20 09:52:41

钱玉炜发表于：2008-11-20 13:00:57

因为2001-1-1是属于后面<date-7这个条件范围之内的，当然要提示错误

符鸿敏发表于：2008-11-21 19:09:30

将代码改为：

Private Sub 日期_LostFocus()
If [日期] > Date Or [日期] < Date - 7 Then '只允许输入一星期之内发生的日期
MsgBox "输入日期可能不对,请复核准确."
End If
End Sub

经过测试，可以通过。

总记录：5篇页次：1/1 9 1 :

Access交流中心