Где поставить DoEvents

[VistaSV30]

Добрый день!

Подскажите пожалуйста, где правильно поставить DoEvents, чтобы на форме отображались ProgressBar и Текст

 Запрос1
 Forms!F.ProgressBar =25
 Forms!F.СвободноеПоле="Текст1"

Запрос2
 Forms!F.ProgressBar =50
 Forms!F.СвободноеПоле="Текст2"

....

[Teslenko_EA]

Здравствуйте VistaSV30.
ваш код содержит команды (функции) отсутствующие в наборе VBA

 Запрос1 '?
  .... 
 Запрос2  '?
  ...

а DoEvents как правило применяется при выполнении большого объема кода, циклического выполнения кода, ... но ни одного ни другого в Вашем коде я не увидел.
Евгений.

[VistaSV30]

Извиняюсь...

Вместо "Запрос" в моем коде стоит SQL запрос, который обрабатывает обчень большой объем данных, (обработка каждого запроса занимает порядка 5-6 мин).
И чтоб не создавалось ощущения, что компьютер завис, нужно между выполнением отдельных запросов обновлять ProgressBar и текст на форме.