Access warning message

[John Southern]

I have some code that executes 10 related queries 8 of which are Make Table Queries. When the code is run the user gets the message asking if it is all right to delete and rewrite each of these tables. It is always OK and I would like to either run the message once or not at all. Is there a way this could be done.
John

[TheShabz]

If youre referring to the standard "you will be deleting x number of rows" dialog box that pops up, you can use the docmd.setwarnings false to turn it off and then substitute it with your own. you would use the following.

reply = msgbox "Are you sure? there is no going back!", vbyesno

if reply = vbyes then
'your code here
else
exit sub
end if

hope this helps.

[Rawb]

I have some code that executes 10 related queries 8 of which are Make Table Queries. When the code is run the user gets the message asking if it is all right to delete and rewrite each of these tables. It is always OK and I would like to either run the message once or not at all. Is there a way this could be done.
John

To disable the warning for each query, use the following VBA Code. Be careful though, because if Code execution stops for any reason (say a problem running one of the Queries or because execution was intentionally halted) before the last line is run, all warning messages in Access will remain turned off until you restart Access.

DoCmd.Setwarnings False
' Queries go here
DoCmd.SetWarnings True