How to pause or wait n seconds

[twgonder]

I found this old thread.


https://www.accessforums.net/showthr...0903#post10903

Odd it never got answered.
I've hunted around in Google for a solution, haven't found one that works (some 64-bit error)
Avoid Using DoEvents to Wait in Microsoft Access, VBA, and VB6 (fmsinc.com)

There must be a command to pause execution.
What is it?

[twgonder]

And I finally found the solution:

Option Compare Database
Option Explicit


#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


Public Sub mySleep(Optional Seconds As Double = 1, Optional AllowDoEvents As Boolean = True)
    ' this function will break up seconds into quarters of a second
    Dim SecFrac As Double
    SecFrac = 0
    While SecFrac < Seconds
        Sleep 250
        If AllowDoEvents Then DoEvents
        SecFrac = SecFrac + 0.25
    Wend
End Sub

[CJ_London]

no need for the longptr - it is still long for VBA7. Using it might cause problems as potentially the wrong amount of memory will be read

longptr is only required for pointers such as hwnd