Código do botão excluir não exclui.

Tenho um Formulário e um sub-formulario, o código do botão excluir executa a mensagem de exclusão, mas a mesma não acontece.

Dim exc As String
exc = MsgBox("Você deseja excluir Registro", vbYesNo, "Exclusão de Registro")
If exc = 6 Then
DoCmd.SetWarnings False
DoCmd.RunCommand acCmdDeleteRecord
DoCmd.SetWarnings True
MsgBox "Registro excluido com Sucesso", vbInformation, "Relatório de Paradas"
Else
MsgBox "Registro Não Excluido !", vbInformation, "Exclusão do Registro Não concluída"
End If

voce quer excluir nos 2? no sub e no form?

Caso for segue o que tenho o meu sistema adapte ao seu

Private Sub btExcluir_Click()
On Error GoTo Err_Excluir_Click
DoCmd.SetWarnings False
CodFabrica.SetFocus
If MsgBox("Este Pedido será EXCLUÍDO e não poderá ser recuperado, deseja realmente Excluir?", vbOKCancel, "frmPedidoExcluir - CONFECÇÃO") = vbOK Then
'Esse é do subformulario
DoCmd.RunSQL "DELETE tblITENSPEDIDO.CodPedido FROM tblITENSPEDIDO WHERE (((tblITENSPEDIDO.CodPedido)=[Formulários]![FrmPedido]![CodPedido]));"
'Esse é do formulario
DoCmd.RunSQL "DELETE tblPEDIDO.CodPedido FROM tblPEDIDO WHERE (((tblPEDIDO.CodPedido)=[Formulários]![FrmPedido]![CodPedido]));"
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Else
Exit Sub
End If
DoCmd.SetWarnings True
Exit_Excluir_Click:
Exit Sub
Err_Excluir_Click:
DoCmd.Hourglass False
DoCmd.Echo True
MSG = "Erro #" & str(err.Number) & " gerado na " & err.Source _
& vbNewLine & vbNewLine & "Descrição: Este Pedido está sendo utilizado e não poderá ser excluído." _
& vbNewLine & vbNewLine & "Por favor contate o Administrador de Sistema caso queira realmente deleta-lo."
MsgBox MSG, vbMsgBoxHelpButton + vbCritical, "frmPedidoExcluir - CONFECÇÃO", err.HelpFile, err.HelpContext
Resume Exit_Excluir_Click
End Sub