ms-access - Sleep Lib "kernel32"给出 64 位系统错误

Question

运行所有功能后，我试图关闭 Access 权限( Application.Quit )。

VBA close access after all functions finished一直是我的引用。

但是当我Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) ，它给了我以下错误:

The code in this project must be updated for use on 64 bit systems.

在完全关闭 Access 之前，是否可以替换此代码来运行所有功能？

Answer 1

dwMilliseconds参数是一个 DWORD，所以它在技术上在 32 位机器上是 32 位，在 64 位机器上是 64 位。因此，它需要 PtrSafe符号(虽然技术上 dwMilliseconds 将正确编码，因为它是 ByVal ......无论如何谁想等那么久)将声明更改为:

#If VBA7 Then
    Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr)
#Else
    Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
#End If