Передать в запрос значение параметра

[Makarus]

С Прошедшими всех!
Скажите, как передать в параметрический запрос значение параметра, являющегося результатом выборки другого запроса?
Оба запроса делают выборку из одной и той же таблицы. Результат первого запроса (источника параметра) - одна запись, значение определенной ячейки которой - и есть параметр целевого запроса. Спасибо

[Swatch]

Здравствуйте! Как вариант могу предложить следующее: первый запрос можно сделать в конструкторе и потом вызывать его открытие в модуле VBA, затем присвоить переменной param значение той самой ячейки полученной в результате выборки записи. Потом прописать в модуле создание второго запроса (инструкцию Select придется прописать вручную) и заслать в его параметр переменную param. Примерно это выглядит так, но возможны ошибки так как не проверяла:

Dim rec1,rec2 as Recordset
Dim rec2zapr As QueryDef
Dim param as Variant
Dim param1 As Parameter
Set rec1 = CurrentDb.OpenRecordset("Запрос1", dbOpenDynaset)
Do until rec1.EOF 
param=rec1!
rec1.Movenext
Loop   '- получили значение параметра и переходим ко второму этапу
'создаем второй запрос затем описываем параметр
Set rec2zapr = db.CreateQueryDef("", "SELECT ....... where чего-то там =[param]")
Set param1 = rec2zapr.Parameters!param
param1 = param
'открываем запрос с параметром
Set rec2 = rec2zapr.OpenRecordset(dbOpenDynaset)
Можно оба запроса прописать в модуле.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[R Dmitry]

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

С Прошедшими всех!
Скажите, как передать в параметрический запрос значение параметра, являющегося результатом выборки другого запроса?
Оба запроса делают выборку из одной и той же таблицы. Результат первого запроса (источника параметра) - одна запись, значение определенной ячейки которой - и есть параметр целевого запроса. Спасибо

Здравствуйте ,
Возможно есть более простое решение Вашего вопроса, но для этого необходим Ваш пример и более подробное описание что Вы хотите получить. Зачастую обычный DLookUp и им подобные помогают в решении таких задач.

[Makarus]

Сообщение от R Dmitry

Здравствуйте ,
Возможно есть более простое решение Вашего вопроса, но для этого необходим Ваш пример и более подробное описание что Вы хотите получить. Зачастую обычный DLookUp и им подобные помогают в решении таких задач.

У меня одна большая таблица (с древовидной структурой; конкретно - кладр). Реляционно ее привязывать или модифицировать - нельзя (нежелательно даже индесировать). Поэтому пытаюсь доставать из нее данные запросами (системой запросов). Все запросы, таким обр., - обращаются к одной таблице. Один запрос должен стать "основанием" для другого, и вся эта цепь выборок - с условием, т.е. условием одного запроса должен стать результат выборки другого.
Я сначала попробовал пойти по кратчайшему пути - через конструктор запросов. Получаю окошко "Введите знач параметра" (т.е. он не "прописывается" автоматом). Ввожу вручную - второй запрос работает. В топике постарался обрисовать схему того, что мне надо (видимо, не совсем понятно). И не знаю, как лучше прописать во втором запросе это условие, полученное из первого запроса, чтобы работало

[Makarus]

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

Здравствуйте! Как вариант могу предложить следующее: первый запрос можно сделать в конструкторе и потом вызывать его открытие в модуле VBA, затем...

Как раз и хотелось бы избежать "нагромождения" процедур и обойтись SQL... Дело в том, что так пока и не можем найти решение, как использовать значение из одного запроса для подстановки в параметр другого, из другого в другой и т.д.

[R Dmitry]

Все же без примера, гадать тут никто не будет