如何用时间作为设定，时间到了自动打开需要的窗体

szbalh　发表于：2015-01-07 15:48:48 　

复制

点击下载此附件

比如附件示例中，想在每天10:00（定时），弹出窗体: frm_1

烦请解答，谢谢

Top

zhaoyoulong 发表于：2015-01-07 16:18:12

点击下载此附件

先建一个空白窗体：名称为窗体1（自己命名）

在窗体1 加载事件中写入

Private Sub Form_Load()
DoCmd.Minimize

Me.TimerInterval = 1000
End Sub

Private Sub Form_Timer()

If Time() >= "#10:00:00#" Then
DoCmd.OpenForm "frm_1"
End If
DoCmd.Close acForm, Me.Name
End Sub

新建宏并命名大会为：

AutoExec

宏事件为打开窗体1

Top

szbalh 发表于：2015-01-07 16:38:48

感谢这么快有了解答

急着试一下效果，改了示例中的时间，（如现在16:38分，改为 If Time() >= "#17:40:00#" Then），可是窗体并没有弹出，希望zhaoyoulong　老师再抽空看看。

谢谢

Top

易勋发表于：2015-01-07 16:38:51

需要一个宏+一个计时窗体才能到达你的要求 点击下载此附件

Top

szbalh 发表于：2015-01-07 17:06:48

感谢易勋老师帮助

可能我在用的ACCESS2003版本低，打不开附件，可否帮转换低版本的附件，

谢谢

Top

易勋发表于：2015-01-07 19:45:14

点击下载此附件 2003版本的，修改时间之前需要先打开一下计时窗体，然后关闭。因为有计时事件存在一直会刷新，导致不好修改时间

Top

szbalh 发表于：2015-01-08 08:19:18

可以了，易勋、zhaoyoulong 老师辛苦了，谢谢

Top

szbalh 发表于：2015-01-08 16:16:52

示例是通过的

但加载在自己的小应用中，窗体中的文本框等控件会失效 , 不知道怎么解决

试了几回，只要加载时钟语句 Me.TimerInterval = 500，窗体的文本框就失效

求解

Top

szbalh 发表于：2015-01-08 17:01:42

现在上传不了附件？

Top

易勋发表于：2015-01-09 08:18:25

计时窗体里面你不要干其他事，看我的示例。做成打开access自动打开计时窗体并隐藏。计时窗体只干一件事，里面不要放其他控件

Top

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

Access交流中心

如何用时间作为设定，时间到了自动打开需要的窗体