ReSQL.ru
     
powered by simpleCommunicator - 2.0.51     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Ошибка #461
22 сообщений из 22, страница 1 из 1
Ошибка #461
    #39911496
JDV
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
JDV
Участник
Добрый час! Подскажите почему выдает ошибку 461

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
Private Sub btn_close_save_Click()

DoCmd.SetWarnings False

Text = " UPDATE tbl_nagruzka " _
& " SET ID_podrazdelenie = '" & Me![txt_id_podrazdeleniya] & "', " _
& " Data_End = '" & Me![txt_data_end] & "', " _
& " ID_SP_nagruzka = '" & CInt(Me.cbo_vid_nagruzki_add_new) & "', " _
& " ID_lichnyi_sostav = '" & Me![txt_id_sotrudnika] & "', " _
& " ID_vid_nagruzki = '" & CInt(Me.cbo_nagruzka_add_new) & "', " _
& " Data_Open = '" & Me![txt_Data_Open] & "', " _
& " Time_Open = '" & Me![txt_time_open] & "', " _
& " Time_End = '" & Me![txt_time_end] & "' " _
& " where ID_nagruzka = Cint('" & Forms![frm_Vvod_dannyh_nagruzka]![frm_SUB_Vvod_dannyh_nagruzka]![ID_nagruzka] & "');"
DoCmd.RunSQL Text

DoCmd.SetWarnings True



& " Data_End = '" & Me![txt_data_end] & "', " _ в этой строке?
...
Рейтинг: 0 / 0
08.01.2020, 11:13
| Ответить | Цитировать | Написать  
Ошибка #461
    #39911541
Кривцов Анатолий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Кривцов Анатолий
Гость
JDV
& " Data_End = '" & Me![txt_data_end] & "', " _ в этой строке?

Здесь, как и другим полям типа дата/время и числовым вы присваиваете строку (значение в апострофах). В принципе, это допускается, если строка соответствует системному представлению даты и может быть преобразована к нужному типу. Если нет, или поле формы пустое, то возникнет ошибка преобразования. Вообще-то, дату в запросе (в условиях или присвоении полю) надо передавать в виде #MM/DD/YY# или #MM/DD/YYYY#.
Если бы вы выполнили Debug.Print Text и посмотрели/показали текст запроса, то проблема была бы видна.

Но в вашем случае лучшее решение - открыть Recordset и обновить запись(и) там:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Text = "SELECT * FROM tbl_nagruzka WHERE ID_nagruzka = "  & Forms![frm_Vvod_dannyh_nagruzka]![frm_SUB_Vvod_dannyh_nagruzka]![ID_nagruzka] 
'Text = "SELECT * FROM tbl_nagruzka WHERE ID_nagruzka = "  & Me![ID_nagruzka] - или, вероятно, так.
With CurrentDB.OpenRecordset(Text)
  Do Until .EOF
    .Edit
    ID_podrazdelenie = Me![txt_id_podrazdeleniya]
    Data_End = Me![txt_data_end] 
...
    Time_End = Me![txt_time_end]
    .Update 
    .MoveNext
  Loop
End With
...
Рейтинг: 0 / 0
08.01.2020, 13:16
| Ответить | Цитировать | Написать  
Ошибка #461
    #39911547
Фотография Панург
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Панург
Участник
JDV, https://www.sql.ru/faq/faq_topic.aspx?fid=157
...
Рейтинг: 0 / 0
08.01.2020, 13:23
| Ответить | Цитировать | Написать  
Ошибка #461
    #39911573
JDV
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
JDV
Участник
Кривцов Анатолий,
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Text = " UPDATE tbl_nagruzka " _
& " SET ID_podrazdelenie = '" & Me![txt_id_podrazdeleniya] & "', " _
& " ID_lichnyi_sostav = '" & Me![txt_id_sotrudnika] & "', " _
& " ID_SP_nagruzka = '" & CInt(Me.cbo_vid_nagruzki_add_new) & "', " _
& " ID_vid_nagruzki = '" & CInt(Me.cbo_nagruzka_add_new) & "', " _
& " Data_Open = '" & Me![txt_Data_Open] & "', " _
& " Time_Open = '" & Me![txt_time_open] & "', " _
& " Data_End = '" & Me![txt_data_end] & "', " _
& " Time_End = '" & Me![txt_time_end] & "' " _
& " WHERE ID_nagruzka = Cint('" & Forms![frm_Vvod_dannyh_nagruzka]![frm_SUB_Vvod_dannyh_nagruzka]![ID_nagruzka] & "');"
DoCmd.RunSQL Text



& " ID_lichnyi_sostav = '" & Me![txt_id_sotrudnika] & "', " _ ошибка в этой строке ... Me![txt_id_sotrudnika] именно на этот элемент
...
Рейтинг: 0 / 0
08.01.2020, 14:33
| Ответить | Цитировать | Написать  
Ошибка #461
    #39911575
JDV
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
JDV
Участник
я читал .... Панург,
...
Рейтинг: 0 / 0
08.01.2020, 14:35
| Ответить | Цитировать | Написать  
Ошибка #461
    #39911580
Фотография court
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
court
Участник
JDV
я читал .... Панург,
"дочитай" после этой строки :)
А теперь очень полезная рекомендация
...
Рейтинг: 0 / 0
08.01.2020, 14:42
| Ответить | Цитировать | Написать  
Ошибка #461
    #39911582
JDV
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
JDV
Участник
Кривцов Анатолий,

Recordset долго ... обычно такие запросы работали ...
461
Не найден метод или элемент данных (ошибка 461) ... но он же есть ....
...
Рейтинг: 0 / 0
08.01.2020, 14:43
| Ответить | Цитировать | Написать  
Ошибка #461
    #39911583
JDV
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
JDV
Участник
court,
в одной форме подобный запрос работает ... я скопировал элементы в новую ... и вылетела эта ошибка (
...
Рейтинг: 0 / 0
08.01.2020, 14:46
| Ответить | Цитировать | Написать  
Ошибка #461
    #39911584
JDV
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
JDV
Участник
court,
если возможно ткните носом меня ...не могу понять где ошибка (
...
Рейтинг: 0 / 0
08.01.2020, 14:47
| Ответить | Цитировать | Написать  
Ошибка #461
    #39911587
JDV
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
JDV
Участник
JDV,
и при чем ошибка возникает на этапе компиляции
...
Рейтинг: 0 / 0
08.01.2020, 14:52
| Ответить | Цитировать | Написать  
Ошибка #461
    #39911588
Фотография court
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
court
Участник
JDV
court,
если возможно ткните носом меня ...не могу понять где ошибка (

нет какого-то из этих контролов
Me![txt_id_podrazdeleniya]
Me![txt_id_sotrudnika]
...
Forms![frm_Vvod_dannyh_nagruzka]![frm_SUB_Vvod_dannyh_nagruzka]![ID_nagruzka]
...
Рейтинг: 0 / 0
08.01.2020, 14:55
| Ответить | Цитировать | Написать  
Ошибка #461
    #39911590
Rivkin Dmitry
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Rivkin Dmitry
Участник
JDV,

Напечатай в окне дебаггера Text и покажи его нам. А, может быть, и не понадобится...
...
Рейтинг: 0 / 0
08.01.2020, 14:57
| Ответить | Цитировать | Написать  
Ошибка #461
    #39911593
JDV
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
JDV
Участник
court, в том то и дела что есть ... прям копирую имена из их свойств
...
Рейтинг: 0 / 0
08.01.2020, 14:59
| Ответить | Цитировать | Написать  
Ошибка #461
    #39911595
JDV
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
JDV
Участник
Rivkin Dmitry,
какого дебагерра ? - immediate ?
...
Рейтинг: 0 / 0
08.01.2020, 15:03
| Ответить | Цитировать | Написать  
Ошибка #461
    #39911605
Фотография vmag
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vmag
Участник
JDV
... прям копирую имена из их свойств


Это может быть иллюзией... на самом деле возможно не из той закладки и вместо имени контрола подставляется имя источника данных...

ну и как-то все не брежно, я бы сказал мусорно всё, эдакое ведро с граблями...

- ну если речь про ИД, то CInt() потенциальные грабли, ибо ИД очень быстро переходит в категорию Long и уместнее в этом месте Clng()
- кстати проблемная строка вообще без преобразования, не смотря на аналогичные последующие строки с миной замедленного действия CInt()
- про дату и время я вообще молчу.., ну типа комп сам разберется что к чему ?

Добавь на форму временную кнопку и помести туда эту строку
Код: vbnet
1.
MsgBox Me![txt_id_sotrudnika]


Мне кажется - будешь крайне удивлен...
...
Рейтинг: 0 / 0
08.01.2020, 15:21
| Ответить | Цитировать | Написать  
Ошибка #461
    #39911608
JDV
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
JDV
Участник
vmag,
...
Рейтинг: 0 / 0
08.01.2020, 15:26
| Ответить | Цитировать | Написать  
Ошибка #461
    #39911609
Rivkin Dmitry
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Rivkin Dmitry
Участник
JDV,

Угу
...
Рейтинг: 0 / 0
08.01.2020, 15:27
| Ответить | Цитировать | Написать  
Ошибка #461
    #39911618
JDV
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
JDV
Участник
Rivkin Dmitry,
...
Рейтинг: 0 / 0
08.01.2020, 15:41
| Ответить | Цитировать | Написать  
Ошибка #461
    #39911632
JDV
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
JDV
Участник
Кривцов Анатолий, рекордсет нечто похожее (((
...
Рейтинг: 0 / 0
08.01.2020, 15:58
| Ответить | Цитировать | Написать  
Ошибка #461
    #39911633
JDV
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
JDV
Участник
JDV,
...
Рейтинг: 0 / 0
08.01.2020, 15:59
| Ответить | Цитировать | Написать  
Ошибка #461
    #39911638
Фотография vmag
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vmag
Участник
JDV,

Ну подставь теперь числа, что получилось ?
Text = " UPDATE tbl_nagruzka " _
& " SET ID_podrazdelenie = '"25"', " _
& " ID_lichnyi_sostav = '"33"', " _

начиная со второй строки лишняя " на конце...
...
Рейтинг: 0 / 0
08.01.2020, 16:04
| Ответить | Цитировать | Написать  
Ошибка #461
    #39911644
JDV
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
JDV
Участник
vmag, нашел ошибку(( в символах ошибься .... (( Благодарю!! Благодарю! Благодарю! Всех!
...
Рейтинг: 0 / 0
08.01.2020, 16:09
| Ответить | Цитировать | Написать  
22 сообщений из 22, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Ошибка #461
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&fpage=22&tid=1610303]:
 0ms
get settings:
 9ms
get forum list:
 14ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 37ms
get topic data:
 12ms
get forum data:
 2ms
get page messages:
 52ms
get tp. blocked users:
 2ms
others: 302ms
total:  438ms
созд. / загр.: 438ms
x
x
Закрыть


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