定时运行宏?

VBOFFICE

我做两表,日表和月表,再做一宏,执行日表---月表的追加查询.  手动运行宏时,能执行日表---月表的追加查询,想在每日22:00自动运行宏,于是:

1;做一AutoExec宏,用于自动打开窗体FORM,(当打开数据库时,窗体FORM能自动打开)

2;定时器间隔设定,

   Private　sub FORM_OPEN

    TIMERINTERVAL=60000

3,  Private sub FORM_TIMER()

      IF Hour(NOW)=22 THEN

      DOCMD.OPENQUERY "追加查询"  (  以上设定好后,不会自动运行追加查询,为什么?)

一点通

因为你设的时间间隔并不一定会是刚好22点,所以不会执行宏,应该设定在一定的时间范围如22:00~22:01,使时间间隔在这个区域内

VBOFFICE

我设定Hour(NOW)=22,时间跨度22:00~23:00,而时间间隔1分钟,应该执行60次.可一次都没执行.

一点通

Hour(NOW)=22 是指定在22:00,并不是在22:00~23:00范围内

改为这样吧

3,  Private sub FORM_TIMER()



If Format(Now, "hh:nn:ss") > #10:00:00 PM# And Format(Now, "hh:nn:ss") < #10:01:00 PM# Then      

DOCMD.OPENQUERY "追加查询"

shitou1ge

chaojianan

学习了。

减肥

学习啦，多谢。