ReSQL.ru
     
powered by simpleCommunicator - 2.0.54     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Выполнение запроса через SQL
9 сообщений из 9, страница 1 из 1
Выполнение запроса через SQL
    #39360052
anastashyo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
anastashyo
Гость
Как исправить ошибку?



Суть:
Нужно, чтобы при нажатии на кнопку "Выполнить заказ" выполнялся запрос, который удаляет заказанное количество лекарств со склада, при условии, что данные берутся только из открытого в форме заказа.
...
Рейтинг: 0 / 0
04.12.2016, 16:24
| Ответить | Цитировать | Написать  
Выполнение запроса через SQL
    #39360054
Фотография __Michelle
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
__Michelle
Участник
anastashyo,

Везде отсутствуют пробелы. Где? Показать невозможно. Вы же дали не код, а картинку кода.
Посмотрите свой US хоть MsgBox'ом, хоть Debug Print'ом - и увидите сами.
...
Рейтинг: 0 / 0
04.12.2016, 16:36
| Ответить | Цитировать | Написать  
Выполнение запроса через SQL
    #39360061
Фотография ПЕНСИОНЕРКА
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ПЕНСИОНЕРКА
Участник
anastashyo,

перед INNER/SET/WHERE вставьте пробелы
...
Рейтинг: 0 / 0
04.12.2016, 16:53
| Ответить | Цитировать | Написать  
Выполнение запроса через SQL
    #39360065
anastashyo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
anastashyo
Гость
__Michelleanastashyo,

Везде отсутствуют пробелы. Где? Показать невозможно. Вы же дали не код, а картинку кода.
Посмотрите свой US хоть MsgBox'ом, хоть Debug Print'ом - и увидите сами.

Добавила пробелы, вот код, но он все равно не работает:

Код: sql
1.
2.
3.
4.
5.
6.
7.
8.
Private Sub Кнопка204_Click()
Dim US As String
US = "UPDATE Лекарства " & _ 
"INNER JOIN Заказано ON Лекарства.КодЛекарства = Заказано.КодЛекарства " & _ 
"SET Лекарства.[Количество на складе] = [Лекарства].[Количество на складе] - [Заказано].[Количество] " & _ 
"WHERE (Заказано.КодЗаказа) = " & [Forms].[Заказы].[КодЗаказа].[Value]
DoCmd.RunSQL US
End Sub
...
Рейтинг: 0 / 0
04.12.2016, 17:02
| Ответить | Цитировать | Написать  
Выполнение запроса через SQL
    #39360070
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Akina
Участник
Код: vbnet
1.
Debug.Print US
...
Рейтинг: 0 / 0
04.12.2016, 17:09
| Ответить | Цитировать | Написать  
Выполнение запроса через SQL
    #39360076
Фотография __Michelle
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
__Michelle
Участник
anastashyo,

Скопируйте из окна Immediate получающийся текст запроса (туда он попадет в результате Debug Print),
создайте в окне запросов запрос с этим текстом и попробуйте выполнить.
Там, возможно, будет показано место ошибки при этом.
А может и уже сами увидите ошибку в тексте. Может, дело в [Forms].[Заказы].[КодЗаказа].
...
Рейтинг: 0 / 0
04.12.2016, 17:21
| Ответить | Цитировать | Написать  
Выполнение запроса через SQL
    #39360085
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
__MichelleМожет, дело в [Forms].[Заказы].[КодЗаказа].
Однозначно. Скорее всего нет контрола с названием КодЗаказа либо у этого контрола нет Value. В этом коде это единственное, что могло бы дать такую ошибку.
...
Рейтинг: 0 / 0
04.12.2016, 17:38
| Ответить | Цитировать | Написать  
Выполнение запроса через SQL
    #39360086
guest_rusimport
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
guest_rusimport
Гость
anastashyo,
попробуйте так
Forms![Заказы].[КодЗаказа]
...
Рейтинг: 0 / 0
04.12.2016, 17:38
| Ответить | Цитировать | Написать  
Выполнение запроса через SQL
    #39360192
Agapov_stas
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Agapov_stas
Участник
Еще вариант, если выполняете с текущей формы(а судя по всему это именно так):

Код: vbnet
1.
2.
3.
4.
US = "UPDATE Лекарства " & _ 
"INNER JOIN Заказано ON Лекарства.КодЛекарства = Заказано.КодЛекарства " & _ 
"SET Лекарства.[Количество на складе] = [Лекарства].[Количество на складе] - [Заказано].[Количество] " & _ 
"WHERE (Заказано.КодЗаказа) = " & Me![КодЗаказа]
...
Рейтинг: 0 / 0
05.12.2016, 07:46
| Ответить | Цитировать | Написать  
9 сообщений из 9, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Выполнение запроса через SQL
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=39360086&tid=1612909]:
 0ms
get settings:
 10ms
get forum list:
 16ms
check forum access:
 5ms
check topic access:
 5ms
track hit:
 46ms
get topic data:
 10ms
get forum data:
 3ms
get page messages:
 52ms
get tp. blocked users:
 1ms
others: 12ms
total:  160ms
созд. / загр.: 160ms
x
x
Закрыть


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