Warnings 1

[Zumbro]

Hello All,
I run a delete query to remove bogus data entry,I would like have it attached to a button But! have it unknown to the user as it runs. I need some way to respond to the prompts coded.
Thanks
Pbk

 

[MasterPO]

Here's the buttom code to do it -

Private Sub cmdOK_Click()
On Error GoTo cmdOK_Click_Error
'- Turn off built in warnings
DoCmd.SetWarnings False
DoCmd.OpenQuery ("MyDeleteQuery&quot

cmdOK_Click_Exit:
'-Turn warnings back on
DoCmd.SetWarnings True
Exit Sub
cmdOK_Click_Error:
MsgBox Err.Description
Resume cmdOK_Click_Exit
End Sub

 

[Zumbro]

Thank YOU!