[Resolvido]Impedir tecla DELETE no subformulario

Olá, como impedir o usuário de excluir um registro do subformulario usando a tecla DEL, tentei o codigo abaixo mas não intercepta o pressionar da tecla.A finalidade seria de deixar o subformulario com permissão de exclusão e exibir msgbox perguntado se quer realmente excluir. Tentei de várias formas mas sempre exclui antes até mesmo de exibir a msgbox. Alguma idéia??

Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyDelete Then
If MsgBox("Deseja Excluir o Horário ?", vbQuestion + vbYesNo, "Exclusão de Apontamentos") = vbYes Then


CurrentDb.Execute "DELETE * FROM tbDetApontamento WHERE CodDetApontamento = " & [frmSubDetApont].Form![CodDetApontamento]

MsgBox ("Exclusão realizada com sucesso!"), vbInformation + vbOKOnly, "Exclusão de Registro!"
Else
KeyAscii = 0
'Exit Sub

End If

End If

End Sub


ALAN

Acesse o formulário que serve de subformulario, folha de propriedades, e configure para "não" a permissão de excluir.

Fique tranquilo que isso não vai interferir quando o usuário clicar em sim na caixa de mensagem.

Olá mestre Damasceno Jr, já havia tentado essa opção, me atendeu em parte. Pela manhã peguei um código no site da Microsoft da ajuda do Access e só a pouco consegui fazer algumas adaptações e deu certo. Veja só:

Private Sub Form_BeforeDelConfirm(Cancel As Integer, Response As Integer)

On Error GoTo TrataErro

Response = acDataErrContinue 'Não exibe a mensagem padrão para o usuário.

If MsgBox("Excluir o Registro selecionado?", vbOKCancel + vbQuestion, "Exclusão de Horários") = vbCancel Then
Cancel = True
Else
CurrentDb.Execute "DELETE * FROM tbDetApontamento WHERE CodDetApontamento = " & [frmSubDetApont].Form![CodDetApontamento]
Me.Requery ' aqui ordena as horas ao digitar no subformulario
End If

TrataErro:
If Err.Number = 3246 Then
Exit Sub
End If

End Sub

Com o código acima, ao teclar DEL executa o questionamento se o usuário deseja excluir o registro selecionado direto do subformulário ou cancelar a exclusão. Vou fazer mais testes e ver se está ficando tudo OK nas tabelas, mas a principio não vi nada de errado.
Damasceno obrigado pela dica, de momento estou encerrando por aqui.

Alan