[Resolvido]Anular em formulário continuo e voltar ao mesmo ponto

Bom dia Amigos

Tenho este código para anular registos em formulário continuo.

A função é para anular e anula, mas se eu estiver na linha 100 (cem) do formulário continuo e anular, como faz o Requery volta para a primeira linha.

Pergunto como voltar para a linha 100 (cem) que era aonde estava ?

Obrigado

'***********************************************************************************************

If MsgBox("Eliminar Linha de Produto " & Linha & Chr(10) + Chr(13), vbYesNo + vbQuestion, "Aviso") = vbYes Then
DoCmd.SetWarnings False
CurrentDb.Execute "DELETE * FROM Linha WHERE Linha ='" & [Linha] & "'"
DoCmd.SetWarnings True
MsgBox "Linha Anulada Com Sucesso.", vbExclamation, "Aviso"

Me.Requery

Exit Sub
Else

End If

Bom dia Assis,

Tente o seguinte código em substituição do que postou:

Código:

Dim wLinha As String

wLinha = Me.Linha

If MsgBox("Eliminar Linha de Produto " & Linha & Chr(10) + Chr(13), vbYesNo + vbQuestion, "Aviso") = vbYes Then
    DoCmd.SetWarnings False
    CurrentDb.Execute "DELETE * FROM Linha WHERE Linha ='" & [Linha] & "'"
    DoCmd.SetWarnings True
    MsgBox "Linha Anulada Com Sucesso.", vbExclamation, "Aviso"

    Me.Requery
    
    Me.Linha.SetFocus
    
    DoCmd.FindRecord (wLinha)
    
    Exit Sub
Else

End If

Boa tarde, Assis
Eliminei o outro tema que se tratava da repetição deste (mesmo assunto, mesma hora)
Julgo não ser a primeira vez que a situação acontece e deves ter mais cuidado na publicação de dúvidas

Carlos

Elimina mas volta ao primeiro registo.

Obrigado

***************
Alexandre obrigado as vezes acontece a pensar que não foi enviada a gente volta a clicar e vão 2

Que tal assim:

Código:

Dim wLinha As String
Dim wLinhaAnterior As String

wLinha = Me.Linha

wLinhaAnterior DMax("Linha","SuaTabela","Linha < '" & wLinha & "'"

If MsgBox("Eliminar Linha de Produto " & Linha & Chr(10) + Chr(13), vbYesNo + vbQuestion, "Aviso") = vbYes Then
    DoCmd.SetWarnings False
    CurrentDb.Execute "DELETE * FROM Linha WHERE Linha ='" & [Linha] & "'"
    DoCmd.SetWarnings True
    MsgBox "Linha Anulada Com Sucesso.", vbExclamation, "Aviso"

    Me.Requery
    
    Me.Linha.SetFocus
    
    DoCmd.FindRecord (wLinhaAnterior)
    
    Exit Sub
Else

End If

Substitua "SuaTabela" pelo nome da tabela que contem o campo "Linha"

Carlos

Esta linha fica vermelha

wLinhaAnterior DMax("Linha","TabLinha","Linha < '" & wLinha & "'"

Desculpe Assis,

Esqueci o sinal = e o )

Código:

wLinhaAnterior = DMax("Linha", "TabLinha", "Linha < '" & wLinha & "'")

Obrigado Carlos