Code

Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal Milliseconds As LongPtr) Public Sub SleepSec(NumSec As Long, Optional AllowEvents As Boolean = True) Dim X As Integer For X = 1 To NumSec Sleep 1000 If AllowEvents Then DoEvents Next End Sub

Here's a version with a visible countdown timer (requires StatusBox)

Public Sub SleepSec(NumSec As Long, Optional AllowEvents As Boolean = True, _ Optional ShowCountdown As Boolean = True) ' sleep for a number of seconds, whole seconds only, sleeps 1 second at a time ' use for delays of 1 second or longer ' added a visible countdown using my Status function https://599cd.com/Status Dim X As Long For X = NumSec To 1 Step -1 If ShowCountdown Then Status "Wait " & X & "..." Sleep 1000 ' sleep 1 full second If AllowEvents Then DoEvents Next End Sub

Member Version

There is a more elaborate Members' Only version that's covered in the Extended Cut of the Sleep Countdown TechHelp video. You can find the code here.

Usage

Put the above in a global module, then anywhere in your database you can say something like this to sleep for 5 seconds:

SleepSec(5)

The purpose of the loop is to make SleepSec responsive. If you sleep for 10 seconds without any DoEvents, then your code might appear to freeze. If this interferes with performance or function for you, just set it to FALSE.

Video

This code is explained in my Sleep TechHelp video.

Comments for Sleep Seconds

Age	Subject	From
2 months	Statusbox Upgrade	Richard Rost
2 years	Sleep	Brad Wile

Subscribe to Sleep Seconds
Get notifications when this page is updated