Как Бороться С Эффектом Подвисания?

Alecs1969 · 26.11.2011

Написал программку на VBA Access, обрабатывает большие объемы данных и через вининет шлет их на сайт. Все работает прерасно, кроме одного, внешне приложение выглядит зависшим. При этом на компе ничего не тормозит, ЦП нагружен едва ли на 10%, свободной памяти - вагон. В принципе это никому не мешает, свою функцию программка выполняет. Но не удобно, процесс-бар либо ничего не показывает, либо его не видно совсем, и не возможно определить сколько времени осталось до завершения. Как мне всетаки заставить работать процесс-бар.

alex77755 · 26.11.2011

Код:

Dim varStatus As Variant

' в тело цикла

Код:

 varStatus = SysCmd(acSysCmdSetStatus, "Идёт обработка документа №: " & R

' перед завершением

Код:

 varStatus = SysCmd(acSysCmdClearStatus)

Alecs1969 · 26.11.2011

Спасибо. Ответ не совсем в тему, так как прогресс-бар у меня реализован в форме, но тем не менее помог. При расширенном изучении документации по SysCmd, наткнулся на метод DoEvents. Теперь все отлично.