ReSQL.ru
     
powered by simpleCommunicator - 2.0.51     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / строка VBA: не работает запрос на обновление
10 сообщений из 35, страница 2 из 2
  2  все
строка VBA: не работает запрос на обновление
    #40083906
Фотография ПЕНСИОНЕРКА
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ПЕНСИОНЕРКА
Участник
Tauri
Мне нужен (иногда) готовый код, который я копирую и вставляю.

тогда выкладывайте базу(здесь только очень малый размер, поэтому чаще ссылка на файлообменник), по картинкам задачи не решаются
...
Рейтинг: 0 / 0
14.07.2021, 21:01
| Ответить | Цитировать | Написать  
строка VBA: не работает запрос на обновление
    #40084007
ИВП
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ИВП
Участник
Tauri
Спасибо. Но я его не понимаю. Я не программист. Мне нужен (иногда) готовый код, который я копирую и вставляю.


Это и есть готовый код.
Его надо вставить вместо вашего
bbb.Execute "UPDATE ..."
У вас в кавычках используется текстовая переменная.
Здесь ее значение собирается в переменную sql:
сначала это пустая строка, потом к ней "прицепляется" с использованием оператора & текст "UPDATE soplata",
далее "прицепляется" следующий кусок и т.д.
После всех сцеплений переменная sql имеет значение, равная тому, что у вас в кавычках.
bbb.Execute sql - это и есть ваш bbb.Execute "UPDATE ..."
...
Рейтинг: 0 / 0
15.07.2021, 10:37
| Ответить | Цитировать | Написать  
строка VBA: не работает запрос на обновление
    #40084278
Tauri
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Tauri
Гость
ИВП
Tauri
Спасибо. Но я его не понимаю. Я не программист. Мне нужен (иногда) готовый код, который я копирую и вставляю.


Это и есть готовый код.
Его надо вставить вместо вашего
bbb.Execute "UPDATE ..."
У вас в кавычках используется текстовая переменная.
Здесь ее значение собирается в переменную sql:
сначала это пустая строка, потом к ней "прицепляется" с использованием оператора & текст "UPDATE soplata",
далее "прицепляется" следующий кусок и т.д.
После всех сцеплений переменная sql имеет значение, равная тому, что у вас в кавычках.
bbb.Execute sql - это и есть ваш bbb.Execute "UPDATE ..."


Т.е. такой код должен быть?:

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Dim bbb As dao.Database
Set bbb = CurrentDb
    sql = ""
    sql = sql & Chr(10) & "UPDATE soplata"
    sql = sql & Chr(10) & "Set soplata.data_id      = " & IIf(IsNull(Me![ПолеСоСписком15]), "null", Me![ПолеСоСписком15])
    sql = sql & Chr(10) & "   ,soplata.klient_id    = " & IIf(IsNull(Me![ПолеСоСписком17]), "null", Me![ПолеСоСписком17])
    sql = sql & Chr(10) & "   ,soplata.summa        = " & IIf(IsNull(Me![Поле19]), "null", Me![Поле19])
    sql = sql & Chr(10) & "   ,soplata.fopl_id      = " & IIf(IsNull(Me![ПолеСоСписком21]), "null", Me![ПолеСоСписком21])
    sql = sql & Chr(10) & "   ,soplata.prim         = '" & Me![Поле23] & "'"
    sql = sql & Chr(10) & "WHERE (oplata_id)        = " & Me![oplata_id]
bbb.Execute sql
bbb.Close
...
Рейтинг: 0 / 0
16.07.2021, 00:23
| Ответить | Цитировать | Написать  
строка VBA: не работает запрос на обновление
    #40084299
DarkMan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DarkMan
Участник
Tauri
Т.е. такой код должен быть?:

А Вы вообще пробовали вставлять примеры кода к себе в программу? Или Вы так и будете ждать пока все сделают за Вас? Так выложите сюда свою базу , может кто и сделает.
Или еще лучше , наймите программиста.
P.S И почитайте в FAQ как оформлять сообщения. Спасибо.
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Dim bbb As dao.Database
Set bbb = CurrentDb
sql = ""
sql = sql & Chr(10) & "UPDATE soplata"
sql = sql & Chr(10) & "Set soplata.data_id = " & IIf(IsNull(Me![ПолеСоСписком15]), "null", Me![ПолеСоСписком15])
sql = sql & Chr(10) & " ,soplata.klient_id = " & IIf(IsNull(Me![ПолеСоСписком17]), "null", Me![ПолеСоСписком17])
sql = sql & Chr(10) & " ,soplata.summa = " & IIf(IsNull(Me![Поле19]), "null", Me![Поле19])
sql = sql & Chr(10) & " ,soplata.fopl_id = " & IIf(IsNull(Me![ПолеСоСписком21]), "null", Me![ПолеСоСписком21])
sql = sql & Chr(10) & " ,soplata.prim = '" & Me![Поле23] & "'"
sql = sql & Chr(10) & "WHERE (oplata_id) = " & Me![oplata_id]
bbb.Execute sql
bbb.Close
...
Рейтинг: 0 / 0
16.07.2021, 08:24
| Ответить | Цитировать | Написать  
строка VBA: не работает запрос на обновление
    #40084329
alecko
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alecko
Участник
 
за пробелами таки следить надо
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Dim strsql As string
strsql = "UPDATE soplata " & _
"Set data_id = " & Me.ПолеСоСписком15.value & " ," & _
"klient_id = " & Me.ПолеСоСписком17.value & " ," & _
"summa = " & nz(Me.Поле19.value,0)  & " ," & _
"fopl_id = " & Me.ПолеСоСписком21.value & " ," & _
"prim = '" & Me![Поле23] & "' " & _
"WHERE (oplata_id = " & Me.oplata_id.value & ");"
'debug.print strsql
Currentdb.Execute strsql

...
Рейтинг: 0 / 0
16.07.2021, 11:13
| Ответить | Цитировать | Написать  
строка VBA: не работает запрос на обновление
    #40084332
Geizer1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Geizer1
Гость
Tauri

Т.е. такой код должен быть?:

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Dim bbb As dao.Database
Set bbb = CurrentDb
    sql = ""
    sql = sql & Chr(10) & "UPDATE soplata"
    sql = sql & Chr(10) & "Set soplata.data_id      = " & IIf(IsNull(Me![ПолеСоСписком15]), "null", Me![ПолеСоСписком15])
    sql = sql & Chr(10) & "   ,soplata.klient_id    = " & IIf(IsNull(Me![ПолеСоСписком17]), "null", Me![ПолеСоСписком17])
    sql = sql & Chr(10) & "   ,soplata.summa        = " & IIf(IsNull(Me![Поле19]), "null", Me![Поле19])
    sql = sql & Chr(10) & "   ,soplata.fopl_id      = " & IIf(IsNull(Me![ПолеСоСписком21]), "null", Me![ПолеСоСписком21])
    sql = sql & Chr(10) & "   ,soplata.prim         = '" & Me![Поле23] & "'"
    sql = sql & Chr(10) & "WHERE (oplata_id)        = " & Me![oplata_id]
bbb.Execute sql
bbb.Close


Не забудьте объявить строковую переменную sql.
...
Рейтинг: 0 / 0
16.07.2021, 11:18
| Ответить | Цитировать | Написать  
строка VBA: не работает запрос на обновление
    #40084334
Фотография ПЕНСИОНЕРКА
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ПЕНСИОНЕРКА
Участник
alecko
за пробелами таки следить надо

я пробел всегда а начале строки добавляю(хвостовой пробел часто не влезает в ширину экрана)
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Dim bbb As dao.Database
Set bbb = CurrentDb
sql = ""
sql = sql & Chr(10) & " UPDATE soplata"
sql = sql & Chr(10) & " Set soplata.data_id = " & IIf(IsNull(Me![ПолеСоСписком15]), "null", Me![ПолеСоСписком15])
sql = sql & Chr(10) & " ,soplata.klient_id = " & IIf(IsNull(Me![ПолеСоСписком17]), "null", Me![ПолеСоСписком17])
sql = sql & Chr(10) & " ,soplata.summa = " & IIf(IsNull(Me![Поле19]), "null", Me![Поле19])
sql = sql & Chr(10) & " ,soplata.fopl_id = " & IIf(IsNull(Me![ПолеСоСписком21]), "null", Me![ПолеСоСписком21])
sql = sql & Chr(10) & " ,soplata.prim = '" & Me![Поле23] & "'"
sql = sql & Chr(10) & " WHERE (oplata_id) = " & Me![oplata_id]
bbb.Execute sql
bbb.Close
...
Рейтинг: 0 / 0
16.07.2021, 11:31
| Ответить | Цитировать | Написать  
строка VBA: не работает запрос на обновление
    #40084480
Tauri
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Tauri
Гость
ПЕНСИОНЕРКА,
спасибо за подсказки и за поддержку
...
Рейтинг: 0 / 0
17.07.2021, 21:47
| Ответить | Цитировать | Написать  
строка VBA: не работает запрос на обновление
    #40084482
Tauri
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Tauri
Гость
DarkMan
Tauri
Т.е. такой код должен быть?:

А Вы вообще пробовали вставлять примеры кода к себе в программу? Или Вы так и будете ждать пока все сделают за Вас? Так выложите сюда свою базу , может кто и сделает.
Или еще лучше , наймите программиста.
P.S И почитайте в FAQ как оформлять сообщения. Спасибо.
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Dim bbb As dao.Database
Set bbb = CurrentDb
sql = ""
sql = sql & Chr(10) & "UPDATE soplata"
sql = sql & Chr(10) & "Set soplata.data_id = " & IIf(IsNull(Me![ПолеСоСписком15]), "null", Me![ПолеСоСписком15])
sql = sql & Chr(10) & " ,soplata.klient_id = " & IIf(IsNull(Me![ПолеСоСписком17]), "null", Me![ПолеСоСписком17])
sql = sql & Chr(10) & " ,soplata.summa = " & IIf(IsNull(Me![Поле19]), "null", Me![Поле19])
sql = sql & Chr(10) & " ,soplata.fopl_id = " & IIf(IsNull(Me![ПолеСоСписком21]), "null", Me![ПолеСоСписком21])
sql = sql & Chr(10) & " ,soplata.prim = '" & Me![Поле23] & "'"
sql = sql & Chr(10) & "WHERE (oplata_id) = " & Me![oplata_id]
bbb.Execute sql
bbb.Close



Естественно я сам всё сделаю.
Если бы у меня были возможности, то я нанял бы программиста, но возможности нет - поэтому пытаюсь понять всё сам.
Так, как я не профессиональный программист (в отличии от Вас), то я многого не знаю (и иногда не понимаю) - поэтому задаю вопросы.
Если мои вопросы Вам не нравятся, то Вы на них просто не отвечайте.
В любом случае, спасибо за подсказки.
...
Рейтинг: 0 / 0
17.07.2021, 21:52
| Ответить | Цитировать | Написать  
строка VBA: не работает запрос на обновление
    #40084496
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
топик занимает уже 2 страницы....
переливание из пустого в порожнее идет успешно....
и судя по тому коду что Вы здесь выкладывали-хотите обновить(а не добавить новую) некую уже сохраненную запись,лишившись напрочь истории-Вы хотите именно этого.
Не проще ли выложить проблемный фрагмент БД с четким описанием "хотелки"(при этом Вам быстро помогут), а перед этим хорошенько подумать над логикой работы этой базы,её структурой.
...
Рейтинг: 0 / 0
18.07.2021, 01:18
| Ответить | Цитировать | Написать  
10 сообщений из 35, страница 2 из 2
  2  все
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / строка VBA: не работает запрос на обновление
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&gotonew=1&tid=1609645]:
 0ms
get settings:
 9ms
get forum list:
 12ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 153ms
get topic data:
 9ms
get first new msg:
 8ms
get forum data:
 2ms
get page messages:
 49ms
get tp. blocked users:
 1ms
others: 258ms
total:  507ms
созд. / загр.: 507ms
x
x
Закрыть


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