VBA code to Execute Access Query

VBA Code to Execute Access Query
Table of Contents

VBA code to Execute Access Query (with Image)

What is it?

This VBA code helps you to run the Access query from any of the VBA supported tools like MS Excel, Word etc.

Why is it?

You can avoid the process of opening the DB and executing the query manually; this code will execute even from an Excel sheet without opening the Access DB manually.

If you use the Import Access Query Results code discussed in the previous post you even get the query results to Excel, everything in just one click.

VBA Code to Import Access Table/Query data to Excel

How to use VBA code to Execute Access Query




(adsbygoogle = window.adsbygoogle || []).push({});

Step 1: Copy Paste the below code in your module.
Dim myDB As Database
Set myDB = OpenDatabase(“C:MYDATABASE.mdb”) ‘Mention the DB path and Replace the ‘MYDATABASE’ with your Access DB name
myDB.Execute “myQuery”  ‘Replace ‘myQuery with your Access Query name
myDB.close ‘Use this only if you want to close DB
Step 2: Click the Run button or F5 to Execute the Access Query.

Vba Code To Execute Access Query

Anson Antony
Anson Antony
Anson is a contributing author and founder at www.askeygeek.com. Learning anything new has always been his passion, askeygeek.com is an outcome of his passion for technology and business. He has got a decade of versatile experience in Business Process Outsourcing, Finance & Accounting, Information Technology, Operational Excellence & Business Intelligence. During the tenure, he had worked for organizations like Genpact, Hewlett Packard, M*Modal and Capgemini in various roles and responsibilities. Outside business and technology, he is a movie buff who spends hours together watching and learning Cinema and a Film Maker too!

Leave a Reply

Your email address will not be published. Required fields are marked *

Congratulations!
You Made It,
Don't Close!
Enter your chance to win 100,000 UberTTS Character Credits
Thank you for your visit!

This popup won’t show up to you again!!!

UberTTS 100K Easter Egg
Share to...