Open Query doesn't work

[jj1]

Dim MyCheck As Variant, MySQL As Variant, MyAnswer As Variant
MySQL = BuildCriteria("ExRefNum", dbText, "ST-" & Format([Forms]![Condition]![TagID], "0000000"))
MyCheck = DLookup("PID", "P Log", MySQL)


If Not IsNull(MyCheck) Then
MyAnswer = MsgBox("This Tag has already been added to the Priority Log!" & Chr(10) & Chr(13) & Chr(10) & Chr(13) & "Do you want to overwrite the record?", vbYesNo, "Record Found!")
If MyAnswer = vbYes Then
DoCmd.SetWarnings (False)

DoCmd.OpenQuery "Delete Tags from P Log"
DoCmd.OpenQuery "Transfer Tags to P Log"
DoCmd.SetWarnings (True)


MsgBox "This Tag has been added to the P Log", vbOKOnly, "Record Added"
End If
Else: DoCmd.SetWarnings (False)
DoCmd.OpenQuery "Transfer Tags to P Log"
DoCmd.SetWarnings (True)
MsgBox "This Tag has been added to the P Log", vbOKOnly, "Record Added"
End If


DoCmd.GoToRecord , , acNewRec
Exit_btn_Save_Click:
Exit Sub
Err_btn_Save_Click:
MsgBox Err.Description
Resume Exit_btn_Save_Click

Please check what I am doing wrong

[June7]

"Doesn't work" means what? What is error message?

Nothing wrong with the command. Post the SQL statement of the query for analysis.

An alternative to opening SQL action query object is to run SQL action statement in VBA with CurrentDb.Execute method.

What exactly is the "Transfer" query doing?

Advise no spaces or special characters/punctuation (underscore is exception) in naming convention.

[jj1]

I am getting Error no 7874 Microsoft Access can't find the object
SQL Statement is

DELETE [P Log].ExRefNumFROM [P Log]
WHERE ((([P Log].ExRefNum)="ST-" & Format([Forms]![Condition]![TagID],"0000000")));

So what my whole code is doing is when I make an update in form to a record it delete that record in backend and replace with the new one

[June7]

Why are you deleting a record when data needs to be edited? Just edit the record.

The SQL needs a space in front of FROM. Since DELETE removes entire record, there is no need to specify field.

DELETE FROM [P Log] WHERE ...