Показать записи, обрабатываемые в строке состояния

Question

Показать записи, обрабатываемые в строке состояния

У меня есть запрос, который я обрабатываю, просматривая каждую запись через VBA. Запуск занимает некоторое время, и пользователи нетерпеливы. Им кажется, что программа заблокирована. Как управлять строкой состояния, чтобы показать пользователю, что запрос обрабатывается и работает?

Я хочу, чтобы это показало что-то вроде:

TOTAL RECORDS 95551, PROCESSING: 85

85 в приведенном выше примере будет увеличиваться до 95551.

0

vba ms-access access-vba ms-access-2000

Источник

user2719145 18 окт '13 в 15:03

1 ответ

Решение

Другие вопросы по тегам vba ms-access access-vba ms-access-2000

user1253219 18 окт '13 в 15:09 2013-10-18 15:09 · Accepted Answer · 2013-10-18 15:09

Ниже следует сделать то, что вы ищете. Визуально индикатор выполнения также будет двигаться соответственно.

Dim tempRN AS Long, tempRT AS Long

tempRN= 1

'Get the total number of records that you need to work with and assign to tempRT

Application.SysCmd acSysCmdInitMeter, "TOTAL RECORDS " & tempRT & ", PROCESSING: " & tempRN, tempRT

Do While .......
  'Do whatever it is you need to do

  tempRN = tempRN + 1
  Application.SysCmd acSysCmdRemoveMeter
  Application.SysCmd acSysCmdInitMeter, "TOTAL RECORD COUNT " & tempRT & ", PROCESSING: " & tempRN, tempRT
  Application.SysCmd acSysCmdUpdateMeter, tempRN
Loop

Application.SysCmd acSysCmdRemoveMeter