[Resolvido]Excluir registro no formulário contínuo

Saudações amigos,

Inseri um botão excluir, na seção detalhe de um formulário contínuo, de modo que o botão se repete em cada registro.
Porém, quando clico no botão e o foco está em outro registro, o access não traz o foco para o registro que desejo excluir, então acaba excluindo indevidamente.

Como posso resolver isso? Já procurei bastante e não encontrei solução.


Obrigado!

Tente este:

On Error GoTo TrataErro

Dim apaga As Integer
Dim MsgErro
apaga = MsgBox("Confirma excluir registro? Depois de excluir não será possível desfazer a ação !!!", vbYesNo + vbQuestion, "Excluir")
    Select Case apaga
        Case vbYes
            DoCmd.SetWarnings False
            DoCmd.RunCommand acCmdDeleteRecord
            DoCmd.SetWarnings True
        Case vbNo
    End Select

Exit_TrataErro:
    DoCmd.Hourglass False
    DoCmd.Echo True
 Exit Sub
   
TrataErro:
If err.Number = 0 Then
    'Não é um erro
Else
 DoCmd.Hourglass False
 DoCmd.Echo True
 MsgErro = "Erro # " & Str(err.Number) & " gerado na " & err.Source _
 & vbNewLine & vbNewLine & "Descrição: " & err.Description _
 & vbNewLine & vbNewLine & "Por favor contate o Administrador de Sistema."
 MsgBox MsgErro, vbMsgBoxHelpButton + vbCritical, "Erro", err.Helpfile, err.HelpContext
 Resume Exit_TrataErro

Cumprimentos.