Hide Dialog box when running append query in VBA ODBC

Question

I want to run a saved access query through a button click using VBA. I don't want the user to be asked to confirm that it runs.

CODE:

DoCmd.OpenQuery "QryAddTraining", acViewNormal, acAdd

This brings up the dialogue box "You are about to run append query that will modify data in your table" ....

I just want the VBA code to automatically select "Yes" and stop the user from seeing this interface.

HansUp · Accepted Answer · 2014-12-08 16:49:17Z

1

Use DAO.Database.Execute to execute your query:

Dim db As DAO.Database
Set db = CurrentDb
db.Execute "QryAddTraining", dbFailOnError

The dbFailOnError option is not required, but including it gives you better error information. Check the Access help topic for details.

answered Dec 8, 2014 at 16:49

HansUp

97.3k11 gold badges80 silver badges139 bronze badges

Sign up to request clarification or add additional context in comments.

2 Comments

AdamsTips Over a year ago

You can also use DoCmd.Setwarnings False, but I prefer the method suggested by @HansUp, as it allows you to identify other types of errors not shown when SetWarnings is turned off. (If you use SetWarnings, don't forget to turn it back on when you are done.)

Tom Robinson Over a year ago

A quick tip for writing shorter code: You can replace 3 lines with CurrentDB.Execute "QryAddTraining", dbFailOnError

Collectives™ on Stack Overflow

Hide Dialog box when running append query in VBA ODBC

1 Answer 1

2 Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

2 Comments

Your Answer

Sign up or log in

Post as a guest

Related