我的定时执行程序怎么出问题了？？？

canghua

Private Sub Form_load()
Me.Form.OnTimer = #12:00:00 AM#
End Sub

Private Sub Form_Timer()

msg "ok"
End Sub

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

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

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

canghua

在线求助。。。

Benjamin_luk

这样使用是错的.

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

请按F1看一下说明.

canghua

间隔时间执行这个我做到了，没问题的。

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

静儿

是不是这样?

Private Sub Form_Timer()

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

sgrshh29

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

好象都不行....(

不过谢谢你们的帮忙.

canghua

我刚上传了一个文件，大家麻烦帮帮忙，可以在那里调试一下。

感激了

静儿

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

：）

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

太感谢了。。。。