[Resolvido]Atualizar campo Sem perder o foco e sair da linha

Boa Tarde
estou tentando colocar um comando de atualização no Sub form "Ao alterar "
tenho que alterar o  resultado total do form principal, o problema e que pede o foco  ou sai da linha que estou alterando
ja tentei
Recalc
Requery


If VarEspaco = 32 Then
 VarEspaco = 0
   Else
    Me.Recalc
     SendKeys "{F2}"
       End If


tem alguma coisa que daria para fazer?

Anexe um pequeno exemplo para conhecermos a estrutura e a forma correta de executar o que pretende.

Da forma que está, com Recalc, o problema que você relata vai sempre ocorrer.

Bom dia
percebi que após usar esse comando :
Me.Filter = "[Id] Like '" & Me.TxtBusca.Value & "'"
Me.FilterOn = True
para buscar desencadeia o erro

Deu Certo
Substitui o Código

Me.Filter = "[Código] Like '" & Me.TxtBusca.Value & "'"
Me.FilterOn = True

pelo

Dim rs As Object
Set rs = Me.Recordset.Clone
        rs.FindFirst "[Código] = " & Str(Me![TxtBusca])
        Me.Bookmark = rs.Bookmark
     Set rs = Nothing

https://www.maximoaccess.com/t6589-resolvidoaplicar-filtro-em-formulario

Parabéns pelo avanço. O fórum agradece o retorno.