ник: katerpeller
Dim dbs As Database
Dim wsp As Workspace
Dim qTest As QueryDef
Set wsp = DBEngine.Workspaces(0)
Set dbs = wsp.OpenDatabase("c:\testDB.accdb") ' база с запросом
Set qTest = dbs.QueryDefs("qTest") ' запрос в базе с запросом %)
dbs.Execute qTest.SQL ' выполняем этот самый запрос
dbs.Close
Навертел как написано. Все классно!!!
Только не успокоюсь я никак... Есть еще одна заморока... как передать выполняемому запросу параметр (он используется в условии отбора). Вылазит соответственно ошибка "Слишком мало параметров. Требуется 1" Как это в коде прописать?