Views

Histats

Vitrine

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? S
im, 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

LinkWithinBrazilVBAExcelSpecialist

Related Posts Plugin for WordPress, Blogger...