Как приостановить выполнение макроса на определенное время?

[Ranel]

Добрый день! Подскажите, пожалуйста, как приостановить выполнение макроса на определенное время?

Дело в том, что примерно в середине выполнения мкроса должны обновиться запросы, тянущие данные из Access. Но они не успевают обновляться, т.к. макрос продолжает свое выполнение дальше. Вот если бы можно было приостановить макрос секунд на 10-15...

[pivas]

Пауза в 1 секунду:
Код:

Application.Wait (Now + TimeValue("0:00:01"))

[Юнлинг]

Сообщение от Ranel

Добрый день! Подскажите, пожалуйста, как приостановить выполнение макроса на определенное время?

Дело в том, что примерно в середине выполнения мкроса должны обновиться запросы, тянущие данные из Access. Но они не успевают обновляться, т.к. макрос продолжает свое выполнение дальше. Вот если бы можно было приостановить макрос секунд на 10-15...

Уважаемый Ranel, что-то я не понял.
Вы пишите

Сообщение от Ranel

... обновиться запросы, тянущие данные из Access.

Вы что обновляете запрос в Accesse!? Это очень интересно. хотелось бы посмотреть как это Вы умудрились сделать. Максимум что у меня получалось это изменить скрипт MS SQL сервера, и запустить его с помощью программы isql.exe
Но самое главное что пока не обновится запрос программа дальше не должна выполнятся. (прийдет ответ о успешном или неуспешном выполнении команды)
Если вы изменяете запрос в Excele, то скорее всего вы изменяете строчку выборки значений из accessa. В этом случае все иначе. Чтение инфы с помощью макроса осуществляется с помощью так называемого скрипта запроса, который включается в момент подключения к базе. Поэтому без закрытия предыдущего запроса вызвать новый у Вас скорее всего не удастся или удастся только частично.
В своей программе я всегда закрываю предыдущие запросы примерно сл. образом

Dim st as string, bd as string, iu as string
Dim Conn As ADODB.Connection
Dim oRes As ADODB.Recordset
Dim oCmd As ADODB.Command
bd= "c:\db.mdb" 'необходимая база данных
Set Conn = New ADODB.Connection
With Conn
    .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0"
    .Open bd
End With 'создание соедининя с базой данных (Access)
do while _условие
    ....
    iu="_условие" ' изменяемый запрос
    st = "Select * FROM Events WHERE"+iu + " ORDER BY _сортировка"
      Set oCmd = New ADODB.Command
      Set oCmd.ActiveConnection = Conn
      With oCmd
         .CommandText = st
         .CommandType = adCmdText
         .Execute
      End With ' подключение к внутренней БД Access (открытие запроса)
      Set oRes = New ADODB.Recordset
      Set oRes.ActiveConnection = Conn
      oRes.Open oCmd ' подключение к записям ограниченными запросом
    ....
      Set oRes = Nothing 'отключение от записей запроса
      Set oCmd = Nothing 'отсоединение от внутренней БД Access (закрытие запроса)
loop

третья и вторая строчки с конца закрывают предыдущий запрос и позволяют открыть новый.
И самое главное что в этом случае, пока не будет выполнена строчка на следующую программа не перейдет.
Поэтой причине я не думаю что необходимо останавливать выполнение программы на некоторое время.
Другое дело если вы имеете дело с динамическими базами. записи в которых обновляются каждые NN секунд/
В этом случае необходимо задержка просто необходима и она указана в посте №2

[slan]

Сообщение от pivas

Пауза в 1 секунду:
Код:

Application.Wait (Now + TimeValue("0:00:01"))

прокомментируйте:

Important The Wait method suspends all Microsoft Excel activity and may prevent you from performing other operations on your computer while Wait is in effect. However, background processes such as printing and recalculation continue.

что еще относится к фоновым действиям кроме пересчета и печати?

[Ranel]

Огромное спасибо за советы!

К сожалению, моя идея на счет приостановки макроса неверна оказалась, запросы на это время тоже приостанавливаются и обновление не происходит

Запросы у меня, конечно же в Excel. Меняются они при изменении строки выборки значений из Access.
В моем макросе нет вообще подключения к базам данных. Запросы обновляются, при изменении условия (в ячейке). Все это работает, если убрать цикл... Но без цикла мой макрос теряет смысл.

Попробую разобраться со сложным (для меня) кодом открытия/закрытия запросов.

[VSD]

Попробуйте в “Свойствах диапазона данных” (запросе) убрать птичку “Фоновое обновление“.

[Ranel]

СУПЕРРРРР!!!!!
Вся проблема в "птичке" оказалась )))))))) Теперь все работает!
Даже не представляете как помогли! Тупая работа по размножению двухсот файлов свелась к 15 минутам вместо целого дня )))))))))