编程论坛 → ACCESS论坛

[求助]如何为启动窗体添加一个时间限制？

wgf2005 发布于 2005-04-19 12:03， 1136 次点击

如何为启动窗体添加一个判断语句来限制是否打开。比如说：如何系统时间超过2005年5月30日，那么启动窗体将自动关闭。

3 回复

wsp19292005-05-03 18:41

在窗体中设默认当前时间控件(注意隐藏起来),再做一个条件宏打开窗体,该宏的条件是窗体中的时间控件<2005-05-30,用宏命令打开此窗体,OK

rbq2005-05-15 11:32

不知合不合你用
建一个"窗体1"
在"窗体1"内建一个文本框"text1"

Private Sub Form_Load()
Dim aa As Date
aa = InputBox("请录入要判断的日期")
Text1 = aa
If Date > Text1 Then'如果系统日期大于录入的日期就关闭窗口
DoCmd.Close acForm, "窗体1"
End If
End Sub

wgf20052005-05-15 19:11

谢谢楼上两位朋友的回复。