Make your own free website on Tripod.com

Home
Home

--- Soumis par Dev Ashish---

En attendant, un petit dodo?

    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 dans le temps avant que la boîte de message ne s'affiche sur l'écran. Ce délai est ajustable, en plus ou en moins, en modifiant la constante cTime.

    Pour votre propre application, utiliser sSleep avec le temps d'attente requis, en milliseconde.

'***************** 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 'en milliseconde
    Call sSleep(cTIME)
    MsgBox "Before this Msgbox, I was asleep for " _
        & cTIME & " Milliseconds."
End Sub
'***************** Code End *********************