Код VBA для выполнения запроса Access

Код VBA для выполнения запроса Access
Оглавление

Код VBA для выполнения запроса Access (с изображением)

Что это такое?

Этот код VBA поможет вам запустить Доступ запрос из любого инструмента, поддерживающего VBA, например MS Excel, Word и т.д.

Почему?

Вы можете избежать процесса открытия БД и выполнения запроса вручную; этот код будет выполняться даже из листа Excel, не открывая БД Access вручную.

Если вы используете функцию Импорт Результаты запросов доступа Код, рассмотренный в предыдущем посте, позволяет даже получить результаты запроса в Excel - все одним щелчком мыши.

Код VBA для импорта данных таблицы/запроса Access в Excel

Как использовать код VBA для выполнения запроса Access




Шаг 1: Скопируйте и вставьте приведенный ниже код в свой модуль.
Dim myDB As Database
Set myDB = OpenDatabase("C:\MYDATABASE.mdb") 'Укажите путь к БД и замените 'MYDATABASE' на имя вашей БД Access.
myDB.Execute "myQuery"  'Замените 'myQuery на имя вашего запроса Access
myDB.close 'Используйте это, только если хотите закрыть DB
Шаг 2: Нажмите кнопку Выполнить или F5, чтобы выполнить запрос Access.

Код Vba для выполнения запроса Access

Энсон Энтони
Энсон Энтони
Энсон — соавтор и основатель компании www.askeygeek.com. Изучение чего-то нового всегда было его страстью, а ASKEYGEEK.com — результат его страсти к технологиям и бизнесу. Он имеет десятилетний разносторонний опыт в области аутсорсинга бизнес-процессов, финансов и бухгалтерского учета, информационных технологий, операционного совершенствования и бизнес-аналитики. За время своего пребывания в должности он работал в таких организациях, как Genpact, Hewlett Packard, M*Modal и Capgemini, занимая различные должности и обязанности. Помимо бизнеса и технологий, он любитель кино, который часами вместе смотрит и изучает кино, а также кинорежиссер!

Добавить комментарий

Ваш адрес email не будет опубликован. Обязательные поля помечены *

Поздравляем!
Ты сделал это,
Не закрывайтесь!
Введите свой шанс на победу 100 000 кредитов персонажей UberTTS
Спасибо Вам за Ваш визит!

Это всплывающее окно не покажет вам решать снова!!!

Пасхальное яйцо UberTTS 100K
Share to...