Comando não Exclui registro

[Flecha]

Olá,

tenho a sub abaixo num botão de excluir o registro no Subformulário mas não exclui, podem ajudar?

Passa por toda a função exibe as mensagens de confirmar e confirma a exclusão, só que continua na tela.

Private Sub Comando46_Click()
On Error GoTo Err_Comando46_Click

If MsgBox("Você tem certeza que quer EXCLUIR este registro?  ", 36, "    AVISO - Confirma ?") = 6 Then
  
DoCmd.SetWarnings False ' Desabilita avisos.

    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
    DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
 MsgBox "Registro excluído com sucesso.  ", vbInformation, "  Sucesso"

Else
Exit_Comando46_Click:
    Exit Sub

Err_Comando46_Click:
    MsgBox Err.Description
   Resume Exit_Comando46_Click
DoCmd.SetWarnings True ' Habilita avisos.
End If
'---------------------------------------------------------------

   '-----------------------------------------------------------
End Sub

Obrigado

Editado Março 29, 2011 por Flecha

[Humm]

use estes

'excluir
DoCmd.RunCommand acCmdDeleteRecord
'ir para novo
DoCmd.GoToRecord , "", acNewRec

[Flecha]

Humm

Não deu certo, dá erro de comando ou função não disponivel

Estou tentendo ainda.

[Humm]

bom ,eu uso isso no access 2007/2010 e da certinho