Office中国论坛/Access中国论坛

标题: [求助]如何限定条件显示所需要日期？ [打印本页]

作者: itez 时间: 2007-5-30 05:21
标题: [求助]如何限定条件显示所需要日期？
请教：为方便夜班人员使用，能否在当日8：00之前打开此窗体时，“日期”栏自动填入前一天的日期。

例如：
6月1日早七点打开窗体，则在“日期”栏自动填入“2007年5月31日”；
6月1日早八点打开窗体，则在“日期”栏自动填入“2007年6月1日”。

谢谢！

[attach]24697[/attach]

作者: 一点通 时间: 2007-5-30 07:15
Private Sub Form_Open(Cancel As Integer)
If Time < #8:00:00 AM# Then
Me.Text0 = DateAdd("D", -1, Date)
Else
Me.Text0 = Date
End If
End Sub

作者: itez 时间: 2007-5-30 16:27
谢谢一点通！

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