VPF::Как создать запрос в Access, добавляющий запись

slang

Дата 6.6.2007, 19:22 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 455
Регистрация: 7.3.2004

Репутация: нет
Всего: 0

Задача заключается в том, как инициировать создание строки (записи) в таблице средствами макроса. Единственным вариантом я нашел открытие запроса, который добавляет строку в таблицу в SQL виде это выглядит так:

Код


INSERT INTO Инвентарные ( КодКниги )
SELECT Книги.КодКниги
FROM Книги
WHERE (((Книги.КодКниги)=[Forms]![Книги]![КодКниги]));

этот код работает хорошо.
Теперь мне понадобилось по аналогии сделать еще один запрос:

Код


INSERT INTO Выдача ( КодЧитателя, КодИнвентарный, ДатаВыдачи, ДатаВозврата )
SELECT Выдача.КодЧитателя, Выдача.КодИнвентарный, Выдача.ДатаВыдачи, Выдача.ДатаВозврата
FROM Выдача
WHERE (((Выдача.КодЧитателя)=[Forms]![Читатели]![КодЧитателя]) AND ((Выдача.КодИнвентарный)=[Forms]![КнигиСвободные]![First-КодИнвентарный]) AND ((Выдача.ДатаВыдачи)=Date()) AND ((Выдача.ДатаВозврата) Is Null));

и вот этот код не работает, ошибок не выдает, но и строку не добавляет.
Может быть кто-то подскажет, как это (добавление записи) можно реализовать избежав запросов, или как исправить этот запрос.

--------------------

Запчасти на иномарки www.avtograd55.ru.
Если есть время - зайдите и посоветуйте что исправить и что доработать.

Akina

Дата 6.6.2007, 21:42 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 30
Всего: 454

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

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| MS Access \| Следующая тема »