Want to protect your cyber security and still get fast solutions? Ask a secure question today.Go Premium

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 398
  • Last Modified:

Set Action query warning's

Hi,

I have several action queries in a database which, when run, perform the action without prompting me to confirm action. The absence of a warning also applies to modifications to select queries, ie if I close down a select query which I have slightly modified to test syntax, it automatically saves select query changes without prompting me.

I have checked in the Database option tab and the "confirm action queries" tick box is checked.  I have also run simple macro to Set systems Warnings to yes.

However  database is still performing action queries without prompt.

ANy suggestions appreciated
0
Grasshopper3
Asked:
Grasshopper3
  • 7
  • 2
1 Solution
 
DatabaseMX (Joe Anderson - Microsoft MVP, Access and Data Platform)Commented:
Forget SetWarnings ... for exactly the reason (and others) you've discovered.

With CurrentDB
     .Execute "YourActionQueryName1", dbFailOnError
     .Execute "YourActionQueryName2", dbFailOnError
     .Execute "YourActionQueryName3", dbFailOnError
       ' more
End With
0
 
DatabaseMX (Joe Anderson - Microsoft MVP, Access and Data Platform)Commented:
With this much safer approach, no prompt.  BUT, should an error occur - the kind you WANT to know about - it will be exposed because of the dbFailOnError ... which you can then process in your error handling routine,

mx
0
 
Grasshopper3Author Commented:
Will this set the "Prompts" back on for all changes modification, not just the queries named in code?  What i want to do is change database properties so that I am prompted to confirm all action query actions or simple changes to select queries on deleteing tables etc.

if I do the above do i not have to type in all action queries in database (I have several hundred in database) into the code? Will this cover simple changes to select queries which, when I close a query I don't want saved.

At the moment I/other users can do this without confirming deletions etc.
0
Industry Leaders: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

 
DatabaseMX (Joe Anderson - Microsoft MVP, Access and Data Platform)Commented:
This is unrelated to any prompts or SetWarnings ... that's the good news, and there is no bad news.

See your prompts in the Options to Yes ... then you will be prompted for saving changes, deleting, etc ... the things you want to be prompted for.

Trust me ...

mx
0
 
DatabaseMX (Joe Anderson - Microsoft MVP, Access and Data Platform)Commented:
prompts
0
 
DatabaseMX (Joe Anderson - Microsoft MVP, Access and Data Platform)Commented:
In other words, the Execute method is the BEST of all worlds ...

SetWarnings should be removed from Access as I see it.  But in Macros (forgot those also), it's the only choice you have to avoid the annoying prompts.

mx
0
 
DatabaseMX (Joe Anderson - Microsoft MVP, Access and Data Platform)Commented:
BTW ... you can also do this:

Dim sSQL as String
sSQL = <SomeActionSqlString>   ' delete, update, insert or makeTable

CurrentDb.Execute sSQL, dbFailOnError

mx
0
 
Grasshopper3Author Commented:
From the attached you can see I have the options set to yes but databse is still deleting, saving without prompts.

Frustrating!
ActionQuery.bmp
0
 
DatabaseMX (Joe Anderson - Microsoft MVP, Access and Data Platform)Commented:
Open the vba Immediate Window and enter this:

DoCmd.SetWarnings True

and hit Enter.

OR ... reboot your system.  Sounds like there was a SetWarnings False w/o a SetWarnings True

mx
0

Featured Post

Concerto Cloud for Software Providers & ISVs

Can Concerto Cloud Services help you focus on evolving your application offerings, while delivering the best cloud experience to your customers? From DevOps to revenue models and customer support, the answer is yes!

Learn how Concerto can help you.

  • 7
  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now