Форумы HiProg.com - MS ACCESS, VBA, VB

 

Ответить на сообщение

Вернуться к теме

Вы отвечаете на сообщение:

ник: OlegEk
Задача - через Call Shell..... запустить CMDшный скрипт по всем записям из таблицы.
Скрипт не выполняется мгновенно, и поэтому если из рекорсета на каждой записи запустить этот скрипт, то система просто умирает от такого количества одновременно запущенных скриптов.
Поэтому надо ставить задержку перед каждым запуском. Например 0,2сек.
Обычно небольшие задержки я выставляю таким кодом:
t = Now()
Do While DateDiff("s", t, Now) < 1
Loop
И то, что такой цикл нехило нагружает систему в течении 1й секунды меня не напрягает.
Но в данном случае так делать нельзя, потому как количество записей большое, и суммарно по времени это займёт несколько часов.

Возможно есть какая-нибудь простая функция, которая позволит сказать что "здесь пауза на 0,2 сек"?

Заранее спасибо


Ваше имя:

Пароль:

Цитировать: [quote][/quote] Код: [code][/code]
Жирный: [b][/b] Наклонный: [i][/i]
URL: [url][/url] 

Сообщение:

 Размер файла не более 50 Кбт. Большие файлы можно размещать на www.slil.ru

Прикрепить:

 

Для вставки смайлов в текст щелкните по значку.