ГлавнаяMS ACCESS Как прервать выполнение процедуры или программы
Как прервать выполнение процедуры или программы
Автор Анатолий Киев
11.02.2002 г.
Функция контролирующая нажание клавиши "ESC".
Функция контролирует нажатие "Esc". Вызов можно вставить в долгоиграющие процедуры и циклы и обрабатывать возвращаемое значение.
Private Declare Function apiGetAsyncKeyState Lib "user32" _ Alias "GetAsyncKeyState" (ByVal vKey As Long) As Integer
Function BreakRunCode(Optional strQuest As String = _ "Хотите прервать процедуру?") As Boolean Const VK_ESCAPE = &H1B
If apiGetAsyncKeyState(VK_ESCAPE) = 0 Then Exit Function If MsgBox(strQuest, vbQuestion + _ vbYesNo + vbDefaultButton2) = vbYes Then BreakRunCode = True End If