Добрый день.
Уважаемые коллеги, посоветуйте пож-та.
Как лучше поступить? нужно макросом обновлять запросы в базах аксесс.
использую примерно следующее
Sub ppp()

Dim db As Object
Set db = GetObject("E:\База\Отчет1.mdb", "Access.Application")

db.DoCmd.OpenQuery ("запрос1")
db.DoCmd.OpenQuery ("запрос2")
db.DoCmd.OpenQuery ("запрос3")
db. Quit

Set db = GetObject("E:\База\Отчет2.mdb", "Access.Application")

db.DoCmd.OpenQuery ("запрос1")
db.DoCmd.OpenQuery ("запрос2")
db.DoCmd.OpenQuery ("запрос3")
db. Quit

End Sub

все отрабатывает до "запрос3" в базе Отчет2. Ошибки не даёт, но при этом и таблицу не обновляет, которую создаёт "запрос3".
При этом, если выполнять руками, то таблица заполняется, и если вырезаю только эту часть кода

Set db = GetObject("E:\База\Отчет2.mdb", "Access.Application")

db.DoCmd.OpenQuery ("запрос1")
db.DoCmd.OpenQuery ("запрос2")
db.DoCmd.OpenQuery ("запрос3")
db. Quit

и выполняю её,
так же работает. а всё вместе никак.
я уже и sleeр пробовал ставить, и aplication.wait
ничего не помогает, запрос не выполняется.
Посоветуйте пож-та, что-нибудь.

Спасибо.

Shocker.Pro,

изначально хотел там спросить, но тут как то привычнее и уютнее что ли : )