Delete Record Code Prevents Nested Events From Firing.

I need to give users the option to cancel a record they're creating. Whilst the delete code works fine, the following events in red no longer fire.


Private Sub cmdCancel_Click()
On Error GoTo Err_cmdCancel_Click

If MsgBox("Once YES is selected this cancel cannot be undone", vbQuestion + vbYesNo, "Are you sure you wish to cancel this entire record?") = vbYes Then
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
DoCmd.Close acForm, "frmNewRec"
DoCmd.Close acForm, "frmSelectNew"
DoCmd.OpenForm "frmSwitchboard"

End If
Exit_cmdCancel_Click:
Exit Sub

Err_cmdCancel_Click:
MsgBox "Record deleted"
Resume Exit_cmdCancel_Click

End Sub