标题:[求助]如何为启动窗体添加一个时间限制?
只看楼主
wgf2005
Rank: 1
等 级:新手上路
帖 子:33
专家分:0
注 册:2005-3-22
 问题点数:0 回复次数:3 
[求助]如何为启动窗体添加一个时间限制?
如何为启动窗体添加一个判断语句来限制是否打开。比如说:如何系统时间超过2005年5月30日,那么启动窗体将自动关闭。
搜索更多相关主题的帖子: 窗体 时间 
2005-04-19 12:03
wsp1929
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2005-5-3
得分:0 
在窗体中设默认当前时间控件(注意隐藏起来),再做一个条件宏打开窗体,该宏的条件是窗体中的时间控件<2005-05-30,用宏命令打开此窗体,OK
2005-05-03 18:41
rbq
Rank: 1
等 级:新手上路
帖 子:7
专家分:0
注 册:2005-5-15
得分:0 
不知合不合你用
建一个"窗体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
2005-05-15 11:32
wgf2005
Rank: 1
等 级:新手上路
帖 子:33
专家分:0
注 册:2005-3-22
得分:0 
谢谢楼上两位朋友的回复。
2005-05-15 19:11



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-16086-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 1.845013 second(s), 7 queries.
Copyright©2004-2025, BCCN.NET, All Rights Reserved