求只能录入本周时间代码

小懿　发表于：2009-08-05 20:54:41 　

想解决时间录入问题，不知能否实现，我想在时间录入框内只能录入本周时间，不能录入本周以外的时间，如能实现，请帮我写段代码。

蟹仔发表于：2009-08-05 21:15:45

Private Sub 记录日期_LostFocus()
If DatePart("ww", 记录日期) <> DatePart("ww", Now()) Then
MsgBox "非当周"
Me.编号.SetFocus
Me.记录日期.SetFocus
End If
End Sub

残荷听雨发表于：2009-08-05 21:17:52

Private Sub 记录日期_AfterUpdate()
If Format(Now(), "WW") <> Format(Me.记录日期, "WW") Then Me.记录日期 = Null
End Sub

Private Sub 内容_GotFocus()
If IsNull(Me.记录日期) Then Me.记录日期.SetFocus
End Sub

点燃一支烟发表于：2009-08-06 08:11:33

呵呵,楼上两位这么去写是不对的,至少可以说是不严谨的,因为:

1、Format(Now(), "WW")返回的是一年的第几周，单纯用这样的条件是不可以的，如：2008-1-1与2009-1-1返回的都是1啊，但并不能说明它们就是同一周；

2、是否本周还要看对楼主对本周的定义，中国人习惯把星期一当作一周的第一天，也就是一周的开始，而Format(Now(), "WW")则是以星期天作为一周的开始的，所以楼主还要说明一下你对本周的定义是什么？是按中国人的习惯吗？

3、http://www.accessoft.com/bbs/showtopic.asp?ID=5534可以参考一下，把你的条件作下修改就可以了

点燃一支烟发表于：2009-08-06 08:24:56

或者加上对年份的限制条件并附加对本周的具体定义的限制

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

Access交流中心