[Resolvido]Botão Excluir não esta excluindo!

Olá,
Continuando em meus testes descobri que o comando Excluir do form não esta executando a exclusão, apesar de passar por todas as linhas da função.
O código foi modificado pelo Mestre Piloto, conforme abaixo:

Private Sub CmdExcluir_Click()
'+++++++++++++++++++++++++++++++++++++++++
'Linhas alteradas por Piloto Forum Maximo Access
'em conjunto com as instruções do botão pesquisa,
'para quando excluir não ficar o form sem nada.
'++++++++++++++++++++++++++++++++++++++++++
On Error GoTo Err_CmdExcluir_Click
Dim strSql As String

If Excluir = True Then

strSql = "SELECT * FROM tab_entrevista ORDER BY [numano] "
Me.RecordSource = strSql

If MsgBox("Deseja excluir a Entrevista selecionada?", vbQuestion + vbYesNo, "Exclusão de Entrevista") = vbYes Then

DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
Excluir = False
End If

Else
If MsgBox("Deseja excluir a Entrevista selecionada?", vbQuestion + vbYesNo, "Exclusão de Entrevista") = vbYes Then

DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70

End If
End If
Exit_CmdExcluir_Click:
Exit Sub

Err_CmdExcluir_Click:
MsgBox Err.Description
Resume Exit_CmdExcluir_Click

End Sub

No form existe o Campo NumAno( neste form é do tipo Texto) que é numerado automáticamente e é único.
Quando o usuário desiste antes de salvar o código Undo funciona, más depois de salvo não deleta.

Na Aba Dados do form esta sim em Exclusão.
Ele usa um subform que a relação é NumAno do (Pai) para Entrev1 do (filho)
Mas mesmo eu Deletando os registros no Subform não apaga o Reistro no Form principal.

Será que tem cura!

Pseesoal,

Eu fiquei mexendo até que o form começou a dar erro ao tentar abrir no modo Design.
Abandonei o mesmo e copiei um de outra versão e esta Excluindo.

Portanto esta excluindo o registro do form Principal.

Vou colocar como resolvido.