Office中国论坛/Access中国论坛

标题: 我的定时执行程序怎么出问题了？？？ [打印本页]

作者: canghua 时间: 2006-3-7 17:55
标题: 我的定时执行程序怎么出问题了？？？
Private Sub Form_load()
Me.Form.OnTimer = #12:00:00 AM#
End Sub

Private Sub Form_Timer()

msg "ok"
End Sub

这是我的代码，好像行不通，各位大虾看如果修改呢？？谢谢了。。。

我的意图是想在每天的中午12点定时执行 msg 这个程序。[attach]16240[/attach]

[此贴子已经被作者于2006-3-7 12:06:30编辑过]

作者: canghua 时间: 2006-3-7 18:05
在线求助。。。

作者: Benjamin_luk 时间: 2006-3-7 18:23
这样使用是错的.

在窗体一般是设置每多少时间间隔运行宏或代码,不是按既定的时间点进行.

请按F1看一下说明.

作者: canghua 时间: 2006-3-7 19:39
间隔时间执行这个我做到了，没问题的。

我现在想实现的是既定的时间执行，有没有高手赐教。谢谢。

作者: 静儿 时间: 2006-3-7 19:49
是不是这样?

Private Sub Form_Timer()

if time()>=#12:00:00 AM# THEN Call Import
End Sub

作者: sgrshh29 时间: 2006-3-7 19:50
Private Sub Form_load()
Me.TimerInterval = 1000
Me.OnTimer = "=import"
End Sub

Sub import()
If Time = #12:00:00 AM# Then
Me.TimerInterval = 0

'执行代码......................
End If
End Sub

作者: canghua 时间: 2006-3-7 20:04
好象都不行....

(

不过谢谢你们的帮忙.

作者: canghua 时间: 2006-3-7 21:25
我刚上传了一个文件，大家麻烦帮帮忙，可以在那里调试一下。

感激了

作者: 静儿 时间: 2006-3-7 21:27
Private Sub Form_Load()
Me.TimerInterval = 1000
End Sub

Private Sub Form_Timer()
If Time > #12:03:00 AM# Then
Me.TimerInterval = 0
MsgBox "ok", vbOKOnly
End If
End Sub

作者: canghua 时间: 2006-3-7 21:36
：）

谢谢静儿，呵呵，现在可以了。很开心。

太感谢了。。。。

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)