Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Выполнение запроса через SQL / 9 сообщений из 9, страница 1 из 1
04.12.2016, 16:24
    #39360052
anastashyo
anastashyo
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выполнение запроса через SQL
Как исправить ошибку?



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

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

перед INNER/SET/WHERE вставьте пробелы
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.12.2016, 17:02
    #39360065
anastashyo
anastashyo
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выполнение запроса через SQL
__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:09
    #39360070
Akina
Akina
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выполнение запроса через SQL
Код: vbnet
1.
Debug.Print US
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.12.2016, 17:21
    #39360076
__Michelle
__Michelle
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выполнение запроса через SQL
anastashyo,

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

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


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