VBA - Faça o seu código dormir - Pausando-o...

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