<<< 返回 access911.net 编程静态资料库索引页

如何让 ACCESS 自动定时执行某段代码?

 

作者:cg1  摘自:access911.net  录入:cg1  时间:2005-4-5  浏览人次:6824


专题地址:http://access911.net/fixhtm/72FAB01E17DCECF3.htm 如果需要更详细的评论或说明,请点击该地址。

 

简述:如何让 ACCESS 自动定时执行某段代码?《窗体》

 


问题:

如何让 ACCESS 在每周周一0点清除上周的所有数据?

 


方法一:


方法非常多,可以完全靠 ACCESS 本身的功能,也可以靠 WINDOWS 控制面板中的任务计划结合 ACCESS 来完成,甚至可以用WINDOWS 控制面板中的任务计划结合 VBS 脚本来完成。

首先介绍完全用 ACCESS 来完成
建立一个窗体来实现即可


'新建一个窗体,将下列代码 COPY 到该窗体的代码模块中
'定义一个变量来存储预定时间,你也完全可以将时间放在数据表中
Dim dte As Date

Private Sub Form_Open(Cancel As Integer)
    '定义时间间隔,每隔8秒检测一次时间
    Me.TimerInterval = 8000
    '预定两分钟后执行某段代码
    dte = DateAdd("n", 2, Now())
End Sub

Private Sub Form_Timer()
    '这里判断现在时间是否已经到达预定时间
    If Now() > .....................
...........

资料库随时有更新,欲查看最新详情请单击专题地址http://access911.net/fixhtm/72FAB01E17DCECF3.htm

 


上一篇:新手来看:关于 JET SQL 在 ACCESS 中不同位置的不同用法

下一篇:如何让编写的 MDB 看起来象是自己的软件,而没有 ACCESS 的界面框架?

2017年2月22日生成静态资料