Home  |   French  |   About  |   Search  | mvps.org  

What's New
Table Of Contents
Credits
Netiquette
10 Commandments 
Bugs
Tables
Queries
Forms
Reports
Modules
APIs
Strings
Date/Time
General
Downloads
Resources
Search
Feedback
mvps.org
FAQs

Terms of Use

API: Make code go to Sleep

Author(s)
Dev Ashish

    More than a few people have asked me if an alternative to DoEvents exists to implement a wait period in Access. (DoEvents yields execution so that the operating system can process other events.)

    The answer is yes, the Sleep API can be used for this. Look at the sample sTestSleep Sub. When you run it, you'll notice a delay beforethe Msgbox appears on screen. The duration can be increased/decreased bychanging the constant cTime to a corressponding higher/lower value.

    For normal use from within your code, simply place a call to the sSleep sub with an appropriate time in milliseconds.

'***************** Code Start *******************
' This code was originally written by Dev Ashish.
' It is not to be altered or distributed,
' except as part of an application.
' You are free to use it in any application,
' provided the copyright notice is left unchanged.
'
' Code Courtesy of
' Dev Ashish
'
Private Declare Sub sapiSleep Lib "kernel32" _
        Alias "Sleep" _
        (ByVal dwMilliseconds As Long)

Sub sSleep(lngMilliSec As Long)
    If lngMilliSec > 0 Then
        Call sapiSleep(lngMilliSec)
    End If
End Sub

Sub sTestSleep()
Const cTIME = 1000 'in MilliSeconds
    Call sSleep(cTIME)
    MsgBox "Before this Msgbox, I was asleep for " _
        & cTIME & " Milliseconds."
End Sub
'***************** Code End *********************

1998-2002, Dev Ashish & Arvin Meyer, All rights reserved. Optimized for Microsoft Internet Explorer