Cancel Message or Replaced

[azhar2006]

Hi guys
I have a question
Can I cancel this message or replaced.
With a deletion, or a message appears (Yes/cancel) only.
I hope to help.
Greetings Azar

[CJ_London]

if you are running a query by opening it manually - then no

if you are running from vba use currentdb.execute rather than docmd.runsql

[azhar2006]

Thank you Ajax
I use this code in order to delete an invoice

Private Sub Command47_Click()
On Error GoTo Command47_Click_Err
    On Error Resume Next
    DoCmd.GoToControl Screen.PreviousControl.Name
    Err.Clear
    If (Not Form.NewRecord) Then
        DoCmd.RunCommand acCmdDeleteRecord
    End If
    If (Form.NewRecord And Not Form.Dirty) Then
        Beep
    End If
    If (Form.NewRecord And Form.Dirty) Then
        DoCmd.RunCommand acCmdUndo
    End If
    If (MacroError <> 0) Then
        Beep
        MsgBox MacroError.Description, vbOKOnly, ""
            End If
Command47_Click_Exit:
    Exit Sub
Command47_Click_Err:
    MsgBox Error$
    Resume Command47_Click_Exit
End Sub

[CJ_London]

so use

currentdb.execute "DELETE * FROM myTable WHERE tblID=" & me.tblID

change the bits in red to the appropriate names

[azhar2006]

I've used it the way
currentdb.execute rather than docmd.runsql
Shows me this error

What is the solution Thanks in advance

[azhar2006]

<p>Thank you so much Ajax <br>&nbsp;It was a mistake in the name of the table, instead of a query must be Workorders <br>

<br>Private Sub Command49_Click()<br>If MsgBox(Prompt:="My question", Buttons:=vbYesNo) = vbYes Then<br>&nbsp;CurrentDb.Execute "DELETE FROM Workorders WHERE WorkorderID=" &amp; Me.WorkorderID<br>&nbsp;Else<br>&nbsp;MsgBox "Delete canceled"<br>&nbsp;End If</p><p>End Sub<br><br>

</p>

[azhar2006]

Thank you so much Ajax
It was a mistake in the name of the table, instead of a query must be Workorders

Private Sub Command49_Click()
If MsgBox(Prompt:="My question", Buttons:=vbYesNo) = vbYes Then
CurrentDb.Execute "DELETE FROM Workorders WHERE WorkorderID=" & Me.WorkorderID
Else
MsgBox "Delete canceled"
End If
End Sub

[CJ_London]

no problem