Код VBA для выполнения запроса Access (с изображением)
Что это такое?
Этот код VBA поможет вам запустить Доступ запрос из любого инструмента, поддерживающего VBA, например MS Excel, Word и т.д.
Почему?
Вы можете избежать процесса открытия БД и выполнения запроса вручную; этот код будет выполняться даже из Excel лист, не открывая Access БД вручную.
Если вы используете функцию Импорт Результаты запросов доступа Код, рассмотренный в предыдущем посте, позволяет даже получить результаты запроса в Excel - все одним щелчком мыши.
Код VBA для импорта данных таблицы/запроса Access в Excel
Как использовать код VBA для выполнения запроса Access
(adsbygoogle = window.adsbygoogle || []).push({});
Шаг 1: Скопируйте и вставьте приведенный ниже код в свой модуль.
Dim myDB As Database
Set myDB = OpenDatabase("C:\MYDATABASE.mdb") 'Укажите путь к БД и замените 'MYDATABASE' на имя вашей БД Access.
myDB.Execute "myQuery" 'Замените 'myQuery на имя вашего запроса Access
myDB.close 'Используйте это, только если хотите закрыть DB
Set myDB = OpenDatabase("C:\MYDATABASE.mdb") 'Укажите путь к БД и замените 'MYDATABASE' на имя вашей БД Access.
myDB.Execute "myQuery" 'Замените 'myQuery на имя вашего запроса Access
myDB.close 'Используйте это, только если хотите закрыть DB
Шаг 2: Нажмите кнопку Выполнить или F5, чтобы выполнить запрос Access.
Поделитесь им с друзьями и коллегами!
2 Responses
Hello Anson, try to find out how, but I can’t….. (aaargggghhh)
I have a simple MDB (accessDB) with one table LoginUserDB
There are 3 fields: UserName UserShortName LastLogIn
UserShortName = a date field, the other two (UserName & UserShortName) are text fields
What will be the best way, if I want to search for all:
UserName = anson.antony
and update on that all, the field: UserShortName to XXX
and the field LastLogIn to Format(Now, “DD.MM.YYYY”) (actual date)
Sorry for bothering you, but I test so different ways without result….
Thanks in advance
Pedro
Resolved = Thanks and sorry !