APIs: En attendant, un petit dodo?	Author(s) Dev Ashish

    Il existe d'autres alternatives à DoEvents pour gérer une période d'attente sous Access. (Noter que DoEvents cède le contrôle à quelques autres applications, via le système d'exploitation).

    Une de ces alternatives et la fonction Sleep, de l'API. Regarder l'exemple de sTestSleep. Lorsque exécuté, vous remarquerez la présence d'un délai avant l'affichage de la boîte de message. Ce délai peut être allongé en changeant cTime pour une valeur supérieure.

    Pour utilisation courante dans votre code, simplement incorporer un appel à sSleep, avec un argument approprié en millisecondes.

'***************** Code Start *******************
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 *********************