vba(Access)中的计时器循环

Question

我正在尝试配置一个计时器，使其在VBA中每3分钟运行一次，以循环访问Access数据库表并验证数据。我正忙着启动计时器。我写了这个迷你脚本来测试计时器：

Function JobNameValidate()
MsgBox ("Hello")
'callAgain.OnTimer
End Function
Function callAgain()
callAgain.TimerInterval = 300000
Forms("HiddenForm1").OnTimer
JobNameValidate
End Function

它循环得很好，但无论输入了TimerInterval，它都会立即循环。我在网上找不到任何有用的文档。

Answer 1

您可以将表单的OnTimer属性设置为一个字符串，该字符串以=开头，后跟函数名和一对圆括号。

TimerInterval的单位是毫秒。所以3分钟就是180000（3*60*1000）。

Function callAgain()
    Forms("HiddenForm1").OnTimer = "=JobNameValidate()"
    Forms("HiddenForm1").TimerInterval = 180000
End Function

我不知道你为什么要用VBA来做这件事。您可以在表单的属性表中设置这两个属性。但如果需要，您可以使用VBA来完成此操作。