Laura Mustto
New member
- Local time
- Today, 10:37
- Joined
- Jul 17, 2012
- Messages
- 8
Re: Running queries with a custom message box in Access 2007
I been trying on my own but something doesn't work, please take a look at my code:
I been trying on my own but something doesn't work, please take a look at my code:
Private Sub Command121_Click()
If MsgBox("Do you wish to run query A and query B?", _
vbYesNo + vbQuestion, "Warning") = vbNo Then
End If
With DoCmd
.SetWarnings False
.OpenQuery "QueryA"
.SetWarnings True
End With
With DoCmd
.SetWarnings False
.OpenQuery "QueryB"
.SetWarnings True
End With
MsgBox "Both queries were successfuly executed", vbInformation
End Sub