[Resolvido]Botão apagar

Bom dia
Venho mais uma vez solicitar a vossa ajuda num problema que surgiu com o botão apagar, ele apaga mesmo no evento ao carregar do formulário estando Me.AllowEdits = False e Me.AllowDeletions = False, e aparecendo nos campos do formulário a palavra eliminado!!!. O que se poderá estar a passar?
Desde já agradecendo a disponibilidade de todos vocês,
Cumprimentos,
Rui

Olá, bom dia!
A propriedade AllowDeletions só impede
apagar caso esteja usando o comando DoCmd.RunCommand acCmdDeleteRecord
que é exclusivo para formulários acoplados.

Observe que mesmo você setando o formulário para não permitir exclusões, mas fazendo
a exclusão direto na tabela pelo "DELETE" de uma SQL, ele irá excluir.

Minha dica é você passar a utilizando o AllowDeletions.
Daí sim, caso defina AllowDeletions=False, o próprio
formulário tratará de impedir a exclusão.

Bem haja Marcelo
Então como posso fazer para regularizar a situação Marcelo, onde devo corrigir?
Abraço,
Rui

No botão Comando131 do formulário Paroquianos, que é o botão de apagar.
Veja a instrução DoCmd.RunCommand acCmdDeleteRecord
no lugar da SQL que estava antes.

Baixe o anexo:

Ok Marcelo
O Marcelo alterou nos dois formulários, paroquianos e direitosparoquiais?
Contudo aparece uma caixa de mensagem de erro visual basic a dizer run-time error 2046, o comando ou ação eliminar registo não está disponível agora!

Bom dia colega Rui tudo bem....

Teste e retorne.

http://speedy.sh/Nr2j3/RuiMaciel.rar

Boa tarde cafpr e obrigado pela disponibilidade.
Mas consegui resolver com as indicações do Marcelo, nos dois formulários ficou desta forma:
Paroquianos:
On Error GoTo 1
If MsgBox("Deseja realmente excluir este registo? " & Trim(Me.Código.Value) & " - " & Trim(Me.Nome.Value) & "?", vbYesNo + vbCritical + vbDefaultButton1, "ATENÇÃO") = vbYes Then
DoCmd.SetWarnings True
DoCmd.RunCommand acCmdDeleteRecord
DoCmd.SetWarnings False
Else
MsgBox "Cancelado! ", vbOKOnly + vbCritical + vbDefaultButton1, "ATENÇÃO"
End If
Exit_Comando131_Click:
Exit Sub
1:
MsgBox Err.Description

DireitosParoquiais:
On Error GoTo 1
If MsgBox("Deseja realmente excluir este registo? " & Trim(Me.Código.Value) & " - " & Trim(Me.Nome.Value) & "?", vbYesNo + vbCritical + vbDefaultButton1, "ATENÇÃO") = vbYes Then
DoCmd.SetWarnings True
CurrentDb.Execute "UPDATE [Paroquianos] SET a2013=Null WHERE Código= " & Me.ID.Value & ""
DoCmd.RunCommand acCmdDeleteRecord
DoCmd.SetWarnings False
Else
MsgBox "Cancelado! ", vbOKOnly + vbCritical + vbDefaultButton1, "ATENÇÃO"
End If
Exit_Comando131_Click:
Exit Sub
1:
MsgBox Err.Description

Cumprimentos,
Rui

Ups
Faltou o resolvido.

Gratos amigo pelo retorno!