VBA, MS Access MS Access в примерах

Приостановка выполнения кода (пауза) на X милисекунд

'--------------------------------------------------------------------------
' Module    : modSleep
' Purpose   : Приостановка выполнения кода (пауза) на X милисекунд (1 сек. = 1000 ms)
'--------------------------------------------------------------------------
#If VBA7 Then
    Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr) 'For 64 Bit Systems
#Else
    Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) 'For 32 Bit Systems
#End If

Public Sub SleepMilliseconds(MilSec&)
    Sleep MilSec
End Sub

Назад ToTop
L.E. 06.08.2021
Рейтинг@Mail.ru