[Resolvido]Quando atualizo o formulário volta ao primeiro registro

Caros colegas, tenho um formulário de inserção de registros e nesse formulário tenho um botão que salva o registro e atualiza, porém encontro um problema na hora de atualizar, quando atualizo o registro que estava registrando desaparece e o formulário me mostra o primeiro registro contido no formulário, gostaria que mesmo atualizando não alterasse o registro que estou inserindo, ou seja, mantenha no mesmo registro.

Alguém pode me ajudar?

Posta o código aí.

Private Sub Comando475_Click()
On Error GoTo Err_Comando475_Click
If IsNull(Me.ID) Or IsNull(Me.DATARE) Then
MsgBox "Primeiro realize a retirada", vbInformation, "SisFinance"
Else
DoCmd.SetWarnings False
Dim stDocName As String
stDocName = "qryatualizaRec"
DoCmd.OpenQuery stDocName, acNormal, acEdit
DoCmd.SetWarnings True
Me.Form.Requery

End If
Exit_Comando475_Click:
Exit Sub
Err_Comando475_Click:
MsgBox Err.Description
Resume Exit_Comando475_Click
End Sub

Tente depois do Requery:

DoCmd.GoToRecord, , acLast

Não deu certo, essa função faz com que vá para o último registro, preciso de uma função que atualize mas fique no registro atual que estarei digitando.

Críquio, se eu conseguir filtrar o registro atual antes de aplicar a atualização acho que funciona, veja o código com a alteração, não consegui inserir a função para filtrar o registro atual, veja:


Private Sub Comando475_Click()
On Error GoTo Err_Comando475_Click
If IsNull(Me.ID) Or IsNull(Me.DATARE) Then
MsgBox "Primeiro realize a retirada", vbInformation, "SisFinance"
Else
DoCmd.SetWarnings False
Dim stDocName As String
stDocName = "qryatualizaRec"
DoCmd.OpenQuery stDocName, acNormal, acEdit
DoCmd.SetWarnings True
DoCmd.ApplyFilter , Forms![frmordemserv2]![id_os] = [id_os]
Me.Form.Requery

End If
Exit_Comando475_Click:
Exit Sub
Err_Comando475_Click:
MsgBox Err.Description
Resume Exit_Comando475_Click
End Sub

Olá

No lugar do requery, experimente o comando:

docmd.RunCommand acCmdSaveRecord

Sucesso!

tambem pode usar o Me.Recalc ou Me.Refresh no lugar do Me.Requery

Utilizando o Me.Refresh deu certo, obrigado pessoal!

O fórum agradece o retorno.