Dialog boxes

[Boomshank]

I am running delete and append queries but when i run them i'm asked to click yes, no or cancel, is there anyway i can bypass this and have automatically select yes?

The code i am using is

Dim stDocName As String
stDocName = "AppendDups"
DoCmd.OpenQuery stDocName, acNormal, acEdit

Any help will be much appreciated

 

[Alc]

Dim stDocName As String
stDocName = "AppendDups"
[B]DoCmd.SetWarnings False[/B]
DoCmd.OpenQuery stDocName, acNormal, acEdit
[B]DoCmd.SetWarnings True[/B]

 

[boblarson]

But if you do use DoCmd.SetWarnings, be sure to include an ERROR HANDLER on that procedure and then as the first line of the error handler make sure to set

DoCmd.SetWarnings True

so that if something fails in between, you don't find yourself without warnings.

 

[Alc]

...........