Running 2 queries at the same time using VB

[kft10 via AccessMonster.com]

Hi,

I have 2 queries; 1 selected query and the other one for Append query. When I
click the button, I'd like to do Selected query first to give a chance for
user to check and print the result. After that, the system will run the
Append Query.

I already did the script like this:

Docmd.openquery "Selected Query', AcviewPreview
MsgBox "Are you sure to run this query", VbOkOnly
Docmd.openqury "Append Query", AcviewNormal

The problem is, I couldn't print the selected query. I have to click OK then
the VB will run the Append query. Is anyone know how to write the script in
VB to do what I want? Thank you in advance

Rgds,
KF

 

[jl5000]

Make this a 2 step process, you can use buttons on a form, the first button
runs
Docmd.openquery "Selected Query', AcviewPreview

The 2nd

if MsgBox ("Are you sure to run this query", VbOkOnly)= VbOKOnly then
Docmd.openqury "Append Query", AcviewNormal
end if