[Resolvido]Form continuo, não elimina

Olá

Coloquei este código num form continuo, num botão a frente de cada linha, para eliminar o registo selecionado.
O que acontece é que questiona se pretende eleminar, dou o OK e não elimina.

Código:

Private Sub btnEliminar_Click()
On Error GoTo Err_CmdExcluir_Click
DoCmd.SetWarnings False
If MsgBox("Deseja excluir o registro selecionado?", vbQuestion + vbYesNo, "Eliminar Registo Selecionado") = vbYes Then
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
End If
DoCmd.SetWarnings True

Exit_CmdExcluir_Click:
Exit Sub

Err_CmdExcluir_Click:
MsgBox Err.Description
Resume Exit_CmdExcluir_Click
End Sub

Agradecia ajuda vossa. o meu muito obrigado.

Boas...

Provavelmente seu formulário continuo deve estar baseado em uma consulta. Mude para a tabela de origem da consulta.

Outra coisa que pode ser é....

1- abra o formulário em modo design
2- aba dados
3-permitir exclusões: sim

Olá

Silvio amigo desculpe a demora, mas era isso mesmo, ou seja baseado numa consulta. A minha questão será, não a forma de eliminar em consulta ?
Obrigado.

E uma vez mais desculpe a demora na resposta. Sorry mesmo.

Se utilizar o CurrentDb.Execute consegue isso;

Código:

If MsgBox("Deseja excluir o registro selecionado?", vbQuestion + vbYesNo, "Eliminar Registo Selecionado") = vbYes Then
    CurrentDb.Execute "DELETE * FROM SuaTabela WHERE SeuCampoID=" & Me.SeuCampoID
    Me.Requery
End If

Olá

João, obrigado. Obrigado mesmo. resolveu.
Beijinhos

Obrigado

Obrigado pelo retorno o forum agradece.