powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как програмно передать в запрос папраметр?
3 сообщений из 3, страница 1 из 1
Как програмно передать в запрос папраметр?
    #32290087
Atomic Bombermen
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
У меня есть некий запрос. Скажем, это склад с нарастающим итогом. Мне нужно добавить ко всем полям константу - начальные остатки. Я делаю в визуальном редактое запрос с параметром, в котором буду передавать значение остатков (оно будет меняться в зависимости от месяца).

Код: plaintext
1.
2.
PARAMETERS cnst IEEEDouble; 
SELECT [W1]+[cnst] AS Fld1, [W2]+[cnst] AS Fld2 
FROM Sklad;


Беда - не могу понять как вызывать такой запрос, чтобы не выскакивало окошко "Введите параметр" из кода VBA, т.е. как автоматом передать это значение и что должно стоять в "источнике данных" формы в этой ситуации? Может вообще такой возможности в Access не предусмотрено? В Дельфях с этим проблем не было.

Заранее благодарен за ответы.
...
Рейтинг: 0 / 0
Как програмно передать в запрос папраметр?
    #32290097
Фотография Shark
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Dim qdf1 as DAO.Querydef
Dim Rst1 as dao.recordset
Set qdf1=Currentdb.Querydefs("bla-bla-bla")
qdf1.Parameters("bla")="bla"
Set Rst1=qdf1.Openrecordset
'Уф
...
Рейтинг: 0 / 0
Как програмно передать в запрос папраметр?
    #32290117
Фотография Shark
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
А, тебе для формы..
Тогда не так.
Заведи себе табличку с параметрами, пиши туда перед тем как, и тогда у тебя запрос не будет параметрическим :-)
...
Рейтинг: 0 / 0
3 сообщений из 3, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как програмно передать в запрос папраметр?
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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