Muito raramente, mas às vezes acontece, alguns perguntam sobre como usar o DoEvents para implementar um período de espera no MS Access. O DoEvents executa um processo deixando que o SO cuide do gerenciamento deste em conjunto com outros eventos rodando naquele momento.)
Podemos colocar o MS Access para dormir? Sim, a API do sono pode ser usada para isso. Oberve o exemplo abaixo, quando executá-lo notará uma demora antes do Msgbox aparecer na tela. A duração pode ser aumentada.
Para o uso normal a partir do seu código, basta colocar uma chamada para a SUB com um tempo apropriado nos milissegundos.
This code was originally written by Dev Ashish.
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 "Antes de evocar este Msgbox, Estive dormindo por: " & cTIME & " milisegundos."
End Sub
André Luiz Bernardes
Twitter: @officespecialis
@brzexceldevelop
@brzaccessdevel
Nenhum comentário:
Postar um comentário