Значиться так...

1/ Создаешь модуль
В нем в третьей сверху строчке
глобальные переменные
Public fProgress as integer, fCancel as boolean


2/ Создаешь форму formProgress
кидаешь на нее кнопку Command1
и метку Label1
ставишь у формы свойство TimerInterval = 1000 (1 сек )
и пишешь в ее (формы) коде обработчики:

Private Sub Form_Timer()
Label1.caption=fProgress
Me.Repaint
End Sub

Private Sub Command1_Click()
fCancel=TRUE
End Sub

3/ В коде долгой процедуры
в тело каждого долгоиграющего цикла
(Do...loop / for..next)
вставляешь ОДИН Doevents,
расчет прогресса
и отменяющую команду:

Do
...
fProgress=чему-то нужному
Doevents
If fCancel then
здесь пожешь спросить пользователя о подтверждении
и если да : exit do:exit sub
end if
loop


Все!

естественно,
что перед запуском долгого процесса
эту форму надо открыть поверх всех

docmd.openform ....., acdialog

а по завершении или прерывании - закрыть

2 SergeySV:

а человек-то хочет не спать, а уметь прерывать ;))))