ReSQL.ru
     
powered by simpleCommunicator - 2.0.51     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / запрос на обновление
10 сообщений из 10, страница 1 из 1
запрос на обновление
    #39862294
jeanssp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
jeanssp
Участник
Здравствуйте! Почему этот код не работает? Я хочу обновить таблицу . К сумме добавить новую сумму. Данные хочу взять из полей ленточной формы. Пишет введите значение параметра (и мои переменные). Ставлю точку останова, значения переменных правильные, то есть код поля читает. Но почему то не работает.


Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
Private Sub Form_AfterUpdate()
Dim SQL As String
Dim deb_acc_id As Integer
Dim sum As Currency
deb_acc_id = Me.DtAccID.Value
sum = Me.Summa.Value
SQL = "UPDATE tblAccounts Set Debet = Debet + sum WHERE (tblAccounts.ID) = deb_acc_id"
DoCmd.RunSQL SQL
End Sub
...
Рейтинг: 0 / 0
16.09.2019, 14:03
| Ответить | Цитировать | Написать  
запрос на обновление
    #39862300
Serg197311
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Serg197311
Участник
jeanssp
Патамучта.....Переменную SQL перед docmd в отладчике посмотрите - все сразу поймете.....
...
Рейтинг: 0 / 0
16.09.2019, 14:08
| Ответить | Цитировать | Написать  
запрос на обновление
    #39862317
jeanssp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
jeanssp
Участник
Serg197311, не понимаю. В переменной моя строка. Ну и что?
...
Рейтинг: 0 / 0
16.09.2019, 14:24
| Ответить | Цитировать | Написать  
запрос на обновление
    #39862323
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Akina
Участник
VBA не будет подставлять значения переменных в литерал - это не PHP. И квотить их не будет.
...
Рейтинг: 0 / 0
16.09.2019, 14:32
| Ответить | Цитировать | Написать  
запрос на обновление
    #39862330
Serg197311
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Serg197311
Участник
jeansspSerg197311, не понимаю. В переменной моя строка. Ну и что?
SUM там не цифра, а стринг "SUM". А SQL не знает, чо это да как. Вот и считает что это параметр и спрашивает его.
...
Рейтинг: 0 / 0
16.09.2019, 14:38
| Ответить | Цитировать | Написать  
запрос на обновление
    #39862367
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
А Вы почитайте соглашение про имена переменных и ответьте на вопрос можно ли её обозвать SUM ?
да и запрос должен быть:
Код: vbnet
1.
2.
peremen=me.debet + что-то
CurrentDB.Execute "UPDATE tblAccounts Set Debet =" & peremen & " WHERE tblAccounts.ID =" & deb_acc_id
...
Рейтинг: 0 / 0
16.09.2019, 15:36
| Ответить | Цитировать | Написать  
запрос на обновление
    #39862372
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
jeansspSerg197311, не понимаю. В переменной моя строка. Ну и что?а Debet какого типа?
...
Рейтинг: 0 / 0
16.09.2019, 15:41
| Ответить | Цитировать | Написать  
запрос на обновление
    #39862392
jeanssp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
jeanssp
Участник
sdku, Debet - денежный
...
Рейтинг: 0 / 0
16.09.2019, 16:05
| Ответить | Цитировать | Написать  
запрос на обновление
    #39862404
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
jeanssp,
ну и формируйте строку-текст запроса как предложено (конкатенацией "&")
Все должно заработать
...
Рейтинг: 0 / 0
16.09.2019, 16:17
| Ответить | Цитировать | Написать  
запрос на обновление
    #39862443
Кривцов Анатолий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Кривцов Анатолий
Гость
Код: vbnet
1.
2.
3.
sum = Me.Summa.Value
SQL = "UPDATE tblAccounts Set Debet = Debet +" & Str(sum) & " WHERE (tblAccounts.ID) = deb_acc_id"
DoCmd.RunSQL SQL

В запросе десятичный разделитель всегда ".". Функция Str это делает.
А вообще для редактирования одной или небольшого кол-ва записей лучше открыть Recordset и изменить запись там.
Да и применение DoCmd.RunSQL - не лучшее решение.
...
Рейтинг: 0 / 0
16.09.2019, 17:04
| Ответить | Цитировать | Написать  
10 сообщений из 10, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / запрос на обновление
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&gotonew=1&tid=1610477]:
 0ms
get settings:
 10ms
get forum list:
 10ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 70ms
get topic data:
 10ms
get first new msg:
 11ms
get forum data:
 2ms
get page messages:
 50ms
get tp. blocked users:
 1ms
others: 308ms
total:  478ms
созд. / загр.: 478ms
x
x
Закрыть


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