delete record in a main form and any link records in the subform

my problems is that if the subform dont have any record the system return
with a MICROSOFT OFFICE ACCESS MESSAGE - "NO CURRENT REORD"

CLICK "OK"

however the system does not delete the record in the mainform. Can anyone
help?

My coding is as follows:
Private Sub Delete_equipment_Click()
On Error GoTo Err_Delete_equipment_Click
Dim Msg, Style, Title, Help, Ctxt, Response, MyString
Msg = "you are about to IRREVERSIBLY DELETE *ALL*INFORMATION CONCERNING
THIS MAIN EQUIPMENT FROM THE DATABASE!?" ' Define message.
Style = vbOKCancel + vbCritical + vbDefaultButton2 ' Define buttons.
Title = "ARE YOU 100% SURE!!!?" ' Define title.
Response = MsgBox(Msg, Style, Title)
If Response = vbOK Then ' User chose Ok.
Me.AllowDeletions = True
Me.FORM_conveyor_data.Form.Recordset.Delete
'Me.Form_Brake.Form.Recordset.Delete
'Me.Form_Backstop.Form.Recordset.Delete
'Me.Form_Coupling.Form.Recordset.Delete
'Me.Form_CV_GearBox.Form.Recordset.Delete
'Me.FORM_CV_pulley.Form.Recordset.Delete
'Me.Form_motor_equipment.Form.Recordset.Delete
'Me.Form_Instrumentation.Form.Recordset.Delete
Me.[sub equipment details].Form.Recordset.Delete
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
End If
Exit_Delete_equipment_Click:
Exit Sub

Err_Delete_equipment_Click:
MsgBox Err.DESCRIPTION
Resume Exit_Delete_equipment_Click

End Sub


Many thanks in advance
.