[Resolvido]Mensagem de erro ao excluir um registro.

Ola pessoal,

Estou precisando novamente da ajuda de vocês.
Já pesquisei nos tópicos e não encontrei algo parecido com o problema que estou enfrentando.

Meu banco de dados é dividido (front-end e back-end).

Estou desenvolvendo um cadastro e o formulário (com subformulário) é baseado em uma consulta à tabela tblHOSPITAL.
As funções de inclusão e alteração estão funcionando corretamente. Porém estou tendo problemas com a exclusão onde já tentei o seguinte:
- Criar um botão de exclusão (daqueles já prontos do access);
- Criar um código no evento "Ao Clicar" para excluir.

Em ambos os casos aparece a mensagem de erro abaixo quando tento CANCELAR a exclusão clicando em NÃO na caixa de diálogo de exclusão do registro que o access exibe.

"Erro em tempo de execução '2501': A ação RunCommand foi cancelada."

Outro detalhe é que eu configurei nas propriedades do subformulário "sfrmHOSPITALDadosBasicos" para não permitir Adição, Edição e Exlusão de registros.

Segue o código do botão de exclusão:

Private Sub cmdHospitalDadosExcluir_Click()
'Permite excluir o registro.
Form_sfrmHOSPITALDadosBasicos.AllowDeletions = True

DoCmd.RunCommand (acCmdDeleteRecord)
'Bloqueia a exclusão do registro.
Form_sfrmHOSPITALDadosBasicos.AllowDeletions = False
End Sub

Para facilitar o entendimento do cenário acima exposto, anexei também uma parte do banco.

Agradeço antecipadamente a ajuda.

Olá,

O código do botão pode ficar assim:

Código:

If MsgBox("Confirma exclusão?", vbYesNo) = vbYes Then
    'Permite excluir o registro.
    Form_sfrmHOSPITALDadosBasicos.AllowDeletions = True
    DoCmd.SetWarnings False
    DoCmd.RunCommand (acCmdDeleteRecord)
    DoCmd.SetWarnings True
    'Bloqueia a exclusão do registro.
    Form_sfrmHOSPITALDadosBasicos.AllowDeletions = False
End If

Cláudio,

Desculpe pela demora para responder, só consegui ver agora à noite.

Funcionou perfeitamente. Obrigado.

Espero que em breve, eu consiga também chegar no nível de vocês para poder também contribuir neste fórum.

Abraços.