Vba 找不到MS Access中的方法或数据成员

我想在5秒钟后运行一个函数，因此我尝试执行以下操作：

 Application.OnTime Now + TimeValue("05:00:00"), "myFunc"

---

但是，我得到的方法或数据成员未找到错误。我阅读了该文档，没有需要添加的参考库。

为此创建一个函数以供重用。在它里面使用睡眠，而不是在循环中做事情，这样会消耗掉所有的CPU

Private声明子睡眠库“kernel32”（ByVal lngmill秒长）
公共子WaitSeconds（整数形式的intSeconds）
Dim dTime作为日期
dTime=DateAdd（“s”，intSeconds，Now）
做
睡100
多芬特
循环到现在>=dTime
端接头

现在可以调用函数：

WaitSeconds 5
我的功能

这是一种Excel VBA方法。不在Access VBA中。这是否回答了您的问题？睡眠会停止应用程序+代码的执行，与Excel不同，这就是为什么你必须使用FormTimer的原因。@Andre：链接上说：“…它会冻结应用程序…”这就是他想要的。他想等5秒钟，然后运行这个函数——至少我是这么理解的。我在我的应用程序中的几个地方使用了这个函数：比如当一个外部exe执行一些需要花费一些时间的工作时（我使用pdftk.exe合并两个PDF），它工作得非常好。我认为他不想停留5秒钟，运行不同的代码然后返回。Access不是一个多任务应用程序。对不起，我应该更清楚一些。您需要添加API

Sleep

声明，否则代码将无法工作。