ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / UPDATE в коде VBA не работает, а в запросах - работает!!!
7 сообщений из 7, страница 1 из 1
UPDATE в коде VBA не работает, а в запросах - работает!!!
    #32838518
Orlic
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Orlic
Гость
Добрый день.

Хочу сделать элементарную вещь:
Код: plaintext
1.
2.
UPDATE TABLE SET TABLE.DATA = Date()
WHERE (((TABLE.ID) Like Forms!Форма!ID));

если сделать запрос на обновление и запустить его - все работает. Но мне нужно на кнопку повесить эквивалентный код, чтоб запрос лишний не сохранять:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Private Sub ПросмотрИтогОтчет_Click()
Dim strSource As String

On Error GoTo Err_ПросмотрИтогОтчет_Click



    strSource = "UPDATE REESTR1 " & _
                    "SET REESTR1.ДатаРасчета = " & Date & " WHERE (((REESTR1.REES) = " & Forms!БООС!REES & "))"
               
    CurrentDb.Execute strSource
...............

получаем ошибку и невозможность выполнения SQL-инструкции: "Число содержит синтаксическую ошибкув выражении запроса '22.12.2004'"

Если попытаться сделать элементарное:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Private Sub ПросмотрИтогОтчет_Click()
Dim strSource As String

On Error GoTo Err_ПросмотрИтогОтчет_Click

    strSource = "select * from TABLE "
    
    MsgBox strSource
    CurrentDb.Execute strSource
.............................

то вываливается окно "Невозможно выполнение запроса на выборку"

В чем беда? Раньше такого не было:-(...
...
Рейтинг: 0 / 0
22.12.2004, 11:05:21
| Ответить | Цитировать | Написать  
UPDATE в коде VBA не работает, а в запросах - работает!!!
    #32838569
Фотография Программист-Любитель
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программист-Любитель
Участник
Ну дату надо правильно форматировать.

А вот почему простейший select не работает... Должен...
...
Рейтинг: 0 / 0
22.12.2004, 11:18:32
| Ответить | Цитировать | Написать  
UPDATE в коде VBA не работает, а в запросах - работает!!!
    #32838571
Фотография Shuhard
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shuhard
Участник
22.12.2004 - 22 месяц - смотри фаг по формату даты
...
Рейтинг: 0 / 0
22.12.2004, 11:19:02
| Ответить | Цитировать | Написать  
UPDATE в коде VBA не работает, а в запросах - работает!!!
    #32838578
Фотография Shuhard
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shuhard
Участник
автор
select * from TABLE

TABLE - резервированное слово JET - следует взять в скобки
Код: plaintext
1.
select * from [TABLE]
...
Рейтинг: 0 / 0
22.12.2004, 11:20:47
| Ответить | Цитировать | Написать  
UPDATE в коде VBA не работает, а в запросах - работает!!!
    #32838581
sasha_1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sasha_1
Участник
с датой всё проще напиши
"UPDATE REESTR1 " & _
"SET REESTR1.ДатаРасчета = Date() WHERE (((REESTR1.REES) = " & Forms!БООС!REES & "))"

а селект и не должен работать
execute используется только для запросов на изменение/удаление/добавление
...
Рейтинг: 0 / 0
22.12.2004, 11:21:34
| Ответить | Цитировать | Написать  
UPDATE в коде VBA не работает, а в запросах - работает!!!
    #32838680
Orlic
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Orlic
Гость
sasha_1с датой всё проще напиши
"UPDATE REESTR1 " & _
"SET REESTR1.ДатаРасчета = Date() WHERE (((REESTR1.REES) = " & Forms!БООС!REES & "))"

работает. Только правильно на самом деле так:
Код: plaintext
1.
2.
strSource = "UPDATE REESTR1 " & _
                "SET REESTR1.ДатаРасчета = Date() WHERE (((REESTR1.REES) Like ' "  & Me.REES & " ' ))"
в кавычки надо сделать%-)
sasha_1
а селект и не должен работать
execute используется только для запросов на изменение/удаление/добавление
точно, совсем не подумал об этом;-)))
А TABLE - это я для примера написал, в форуме, для ясности.
[quot Shuhard]
22.12.2004 - 22 месяц - смотри фаг по формату даты
[/quote]

в Факе написано так:
Код: plaintext
1.
2.
3.
strSQL = "SELECT * " _
  & "FROM Table " _
  & "WHERE (((Table.Quanty)=#" & Format(q, "mm\/dd\/yy hh:mm:ss") & "#));"

не захотел он у меня таким макаром обновляться ;-(
Кстати, функция Date все таки так выдает дату 22.12.2004, так что день на первом месте.

Спасибо.
...
Рейтинг: 0 / 0
22.12.2004, 11:44:20
| Ответить | Цитировать | Написать  
UPDATE в коде VBA не работает, а в запросах - работает!!!
    #32838717
sasha_1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sasha_1
Участник
2 Orlic
на будущее не путай представление на экране и представление в базе.
на экране выводится так, как указано в регион. настройках
а в базе хранится всегда МесяцДеньГод

P.S. ну а про кавычки, ты же не писал, что оно у тебя текстовое.
...
Рейтинг: 0 / 0
22.12.2004, 11:54:49
| Ответить | Цитировать | Написать  
7 сообщений из 7, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / UPDATE в коде VBA не работает, а в запросах - работает!!!
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?desktop=1&fid=45&tid=1669626]:
 0ms
get settings:
 7ms
get forum list:
 14ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 34ms
get topic data:
 11ms
get forum data:
 2ms
get page messages:
 51ms
get tp. blocked users:
 1ms
others: 198ms
total:  324ms
созд. / загр.: 324ms
x
x
Закрыть


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