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来做。

定时器在vba中循环（Access）

1 个答案: