Форум программистов, компьютерный форум, киберфорум
Microsoft Access
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.89/18: Рейтинг темы: голосов - 18, средняя оценка - 4.89
 Аватар для Aumi
20 / 36 / 14
Регистрация: 08.10.2015
Сообщений: 406

Команда Update в VBA

14.09.2017, 17:35. Показов 3855. Ответов 6
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Здравствуйте,

я продолжаю свое изучение VBA
Таблицы

Вставка инфы(id, предмет, описание)
Справочник(id,описание)

Нужно получить описание в таб Вставка инфы такое, где id двух таблиц равны

SQL
1
CurrentDb.Execute "UPDATE [Вставка инфы] SET [Описание] = (select [Описание] from [Справочник] where [Справочник].ID=[Вставка инфы].ID )"
Ругается, что в операции должен использоваться обновляемый запрос. Ошибка 3073

Подскажите!
0
Лучшие ответы (1)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
14.09.2017, 17:35
Ответы с готовыми решениями:

Команда UPDATE с условием IF
Добрый день. У меня такая проблема нужно сделать чтобы при поиске убиралась галочка наличие, если галочка не стоит, то она ставилась, и...

Команда к кнопки в MsgBox в VBA
В сообщении MsgBox есть две кнопки "Да" и "Нет" при нажатии на "Да" форма закрывается, при нажатии на "Нет" форма должна...

Макрос или команда VBA!
Всем привет. У меня такая ситуация: Есть подчиненная форма, где отображаются клиенты и их заказы, необходимо составить отчет, в котором...

6
Модератор
Эксперт MS Access
6231 / 2909 / 707
Регистрация: 12.06.2016
Сообщений: 7,839
14.09.2017, 17:48
Лучший ответ Сообщение было отмечено Aumi как решение

Решение

Aumi,

Дело не в VBA.
Если создадите такой же запрос в окне БД и попробуете выполнить, получите тот же результат.
Дело в том, что запросы с вложенными подзапросами являются необновляемыми.
Сделайте так:
SQL
1
CurrentDb.Execute "UPDATE [Вставка инфы] SET [Описание]=DLookUp(""Описание"",""Справочник"",""ID="" & ID)"
1
 Аватар для Aumi
20 / 36 / 14
Регистрация: 08.10.2015
Сообщений: 406
14.09.2017, 17:53  [ТС]
Capi, & ID это поймет код, что ID равны?
0
Модератор
Эксперт MS Access
6231 / 2909 / 707
Регистрация: 12.06.2016
Сообщений: 7,839
14.09.2017, 18:00
Aumi,

Код ничего понять не может.
Главное, что это поймет JET.
0
 Аватар для Aumi
20 / 36 / 14
Регистрация: 08.10.2015
Сообщений: 406
15.09.2017, 09:47  [ТС]
Capi, спасибо!

Добавлено через 19 минут
Capi, Возникла проблема. Данная строка обновилась, но все остальные поля пусты! Они были заполнены, но после Update исчезли
0
Модератор
Эксперт MS Access
6231 / 2909 / 707
Регистрация: 12.06.2016
Сообщений: 7,839
15.09.2017, 10:04
Aumi,

Непонятно.
Что значит, "данная строка"?
То есть, обновилась одна запись?
Но так быть не могло, обновиться должны были все записи.
И какие поля стали пустыми, в каких записях?
Поясните, пожалуйста.
0
 Аватар для Aumi
20 / 36 / 14
Регистрация: 08.10.2015
Сообщений: 406
15.09.2017, 12:18  [ТС]
Capi, Извините, хотела ответить. Не знаю как, все заработало. Спасибо еще раз!
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
15.09.2017, 12:18
Помогаю со студенческими работами здесь

Обновление таблицы (update) через VBA
Добрый вечер, есть код Private Sub Кнопка1076_Click() Dim xx As Variant 'Dim t As Integer Dim lSQL$ t =...

UPDATE WHERE SET с параметрами из полей формы и переменных VBA
Не пойму где ошибка, уже прочёл тем 18 - вроде всё должно идти: Dim strPassword, Password As String Dim ID As...

Команда Update
Здравствуйте у меня такой вопрос! На форме DataGridView подключен через DataSet, TableAdapter к базе MS SQl. Данные отображаются все...

Команда UPDATE
Мне нужно изменить одну строку в таблице Читатели ("Readers") с помощью команды UPDATE. Вроде сам запрос правильно, при проверке на...

Команда UPDATE для mysql
Уважаемые Гуру! Прошу прощения если вопрос некорректен или не там задан. Может кто-то даст совет или ссылку. Использую драйвер...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Новые блоги и статьи
Символьное дифференцирование
igorrr37 13.02.2026
/ * Логарифм записывается как: (x-2)log(x^2+2) - означает логарифм (x^2+2) по основанию (x-2). Унарный минус обозначается как ! */ #include <iostream> #include <stack> #include <cctype>. . .
Камера Toupcam IUA500KMA
Eddy_Em 12.02.2026
Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу
zbw 12.02.2026
И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.
«Знание-Сила»
zbw 12.02.2026
«Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 12.02.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 11.02.2026
Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image
8Observer8 10.02.2026
Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .
Установка Qt-версии Lazarus IDE в Debian Trixie Xfce
volvo 10.02.2026
В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru