如何让vba代码每3秒运行一次？ （访问）

Question

我正在尝试编写更新脚本以更新缺失值。

    Function InsertAny()
    MsgBox ("Hello")

    callAgain
End Function

Function callAgain()
    Dim alertTime As String
    alertTime = Now + TimeValue("00:00:03")
    Forms("HiddenForm1").OnTime alertTime, "InsertAny"
    'Forms("HiddenForm1").TimerInterval = 3

End Function

但是我一直在接受：

  

运行时错误'2465'：   应用程序定义或对象定义的错误。

Answer 1

在这种情况下，出现错误2465，因为您使用的是Form而不是Application。表格期望属性：OnTimer，而不是OnTime。

修改

据我了解，您需要每隔3秒拨打InsertAny。在这种情况下只需放置

Call InsertAny()

在OnTimer形式的HiddenForm1事件中，按代码

启动计时器

Forms("HiddenForm1").TimerInterval = 3