powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / параметр в запрос /dao OpenRecordset
6 сообщений из 6, страница 1 из 1
параметр в запрос /dao OpenRecordset
    #32314161
Артём2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Dim rs As DAO.Recordset
Dim q As DAO.QueryDef, p As DAO.Parameter
Set q = CurrentDb.QueryDefs("qqqqq")
For Each p In q.Parameters
p.Value = p.name
Next
Set rs = CurrentDb.OpenRecordset("qqqqq")

что не так?
как советовали(p.Value = Eval(p.name)) не помогает
...
Рейтинг: 0 / 0
параметр в запрос /dao OpenRecordset
    #32314162
Артём2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
забыл - пишет мало параметров, ожидалось ....
...
Рейтинг: 0 / 0
параметр в запрос /dao OpenRecordset
    #32314177
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Модератор форума
Set rs = CurrentDb.OpenRecordset("qqqqq") - это неверно, эта команда никак не использует подставленные значения параметров. Верно так:

Set rs = q.OpenRecordset
...
Рейтинг: 0 / 0
параметр в запрос /dao OpenRecordset
    #32314183
Артём2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Set rs = q.OpenRecordset
на это выдаёт - ошибка преобразования типа
да что же это такое!?
...
Рейтинг: 0 / 0
параметр в запрос /dao OpenRecordset
    #32314186
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Модератор форума
А вот это:

Dim rs As DAO.Recordset

точно есть?
...
Рейтинг: 0 / 0
параметр в запрос /dao OpenRecordset
    #32314188
Артём2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
спасибо, заработало
просто я писал не Set rs = q.OpenRecordset
а Set rs = q.OpenRecordset("qqqqq")
...
Рейтинг: 0 / 0
6 сообщений из 6, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / параметр в запрос /dao OpenRecordset
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]