Работа с БД Access через VBA Excel

@Chris_Fehn · Регистрация: 21.05.2018

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

Добрый день!

Суть проекта: необходим макрос в Excel, который бы добавлял/изменял строки в таблице Access.
Пока что получается только добавлять новые данные в таблицу с помощью следующего кода (найдено на просторах гугла):

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub Добавить_в_Базу()
 
Dim dbe As Object 'DAO.DBEngine
Dim db  As Object 'DAO.Database
Dim rst As Object 'DAO.Recordset
        
Set dbe = CreateObject("DAO.DBEngine.120")
Set db = dbe.OpenDatabase(ThisWorkbook.Path & "\БД.accdb")
Set rs = db.TableDefs("БД_Первичные_расчеты").OpenRecordset
        
rs.AddNew
    rs("ДатаРасчета").Value = Date
    rs("ФИО").Value = Worksheets("РАСЧЕТ").Cells(3, 2)
    rs("НомерДоговора").Value = Worksheets("РАСЧЕТ").Cells(3, 4)
rs.Update
 
rs.Close
db.Close
Set rs = Nothing
Set db = Nothing
        
End Sub

Код открывает базу данных, находит нужную таблицу и вставляет данные с листа Excel в соответствующие поля в Access.

Теперь мне, например, нужно найти какую-то запись с определенным значением в поле "ФИО" и внести изменения в найденную строчку (например, изменить номер договора).

Подскажите, пожалуйста, как это сделать?

mobile · 22.05.2018, 07:01

Сообщение от Chris_Fehn

нужно найти какую-то запись с определенным значением в поле "ФИО" и внести изменения в найденную строчку (например, изменить номер договора).

Вами уже создан рекордсет. Достаточно в нем же найти нужную запись и изменить ее. Код должен быть выполнен до команды закрытия рекорсета. Типа такого:

Visual Basic
1
2
3
4
5
6
rs.FindFirst "ФИО = '" & Worksheets("РАСЧЕТ").Cells(3, 2) & "'" 'Найти ФИО заданное в ячейке 
If not rs.Nomatch then                        'Если ФИО найдено в таблице
    rs.Edit                                   'Режим редактирования
    rs!ФИО = Worksheets("РАСЧЕТ").Cells(3, 2) 'Присвоить новое значение
    rs.Update                                 'Сохранить в таблице Access
End If

@Chris_Fehn · 22.05.2018, 18:02 **[ТС]**

Сообщение от mobile

Вами уже создан рекордсет. Достаточно в нем же найти нужную запись и изменить ее. Код должен быть выполнен до команды закрытия рекорсета. Типа такого:

Visual Basic
1
2
3
4
5
6
rs.FindFirst "ФИО = '" & Worksheets("РАСЧЕТ").Cells(3, 2) & "'" 'Найти ФИО заданное в ячейке 
If not rs.Nomatch then                        'Если ФИО найдено в таблице
    rs.Edit                                   'Режим редактирования
    rs!ФИО = Worksheets("РАСЧЕТ").Cells(3, 2) 'Присвоить новое значение
    rs.Update                                 'Сохранить в таблице Access
End If

На первой же строчке вашего кода выдает ошибку (скрин в приложении)

mobile · 22.05.2018, 20:20

Сообщение от Chris_Fehn

выдает ошибку

Виноват, не посмотрел как создается рекордсет. Замените строку

Visual Basic
1
Set rs = db.TableDefs("БД_Первичные_расчеты").OpenRecordset

на

Visual Basic
1
Set rs = db.OpenRecordset("select * from БД_Первичные_расчеты")

@Chris_Fehn · 23.05.2018, 17:59 **[ТС]**

Сообщение от mobile

Виноват, не посмотрел как создается рекордсет. Замените строку

Visual Basic
1
Set rs = db.TableDefs("БД_Первичные_расчеты").OpenRecordset

на

Visual Basic
1
Set rs = db.OpenRecordset("select * from БД_Первичные_расчеты")

Все, теперь работает. Огромное спасибо!
Приятно знать, что в 2018 форумы все так же актуальны и полезны

Добавлено через 36 минут
mobile, еще один мелкий нюанс. Как можно обновить окно Access после исполнения скрипта? Пробовал что-то типа db.SendKeys ("{F5}"), выдает ошибку, мол, "объект не поддерживает данное свойство или метод".

@6548 · 25.04.2020, 18:09

Всем привет!Ребята плиз, хэлп нужна помощь в написании макроса.
Есть БД в Access, необходимо из нее перенести данные в Excel, но всей допустим таблицы, а какие либо строки))

Комментарий модератора

вам бы следовало создать свою тему

Новые блоги и статьи Все статьи Все блоги /
Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .
Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .	Фото: Daniel Greenwood kumehtar 13.11.2025	Расскажи мне о Мире, бродяга kumehtar 12.11.2025 — Расскажи мне о Мире, бродяга, Ты же видел моря и метели. Как сменялись короны и стяги, Как эпохи стрелою летели. - Этот мир — это крылья и горы, Снег и пламя, любовь и тревоги, И бескрайние. . .

Работа с БД Access через VBA Excel

Решение