[Resolvido]Dúvida código para atualizar um campo de tabela

Boa noite,

tenho uma tabela  (tbl_pedidos) onde preciso atualizar o campo Prox com a data do registro anterior a questão é que quando chega no ultimo registro dá um erro. Sou iniciante em VBA se alguém puder me dar uma luz no que fiz de errado agradeço.

Código:

Private Sub Comando0_Click()
Dim rs As DAO.Recordset
Dim dtIN As Date
Dim Count As Integer
Dim Total As Integer

'limpa o campo
CurrentDb.Execute "UPDATE tbl_pedidos SET Prox = null;"

Set rs = CurrentDb.OpenRecordset("tbl_pedidos SET")

Count = rs.RecordCount
Total = Count - 1
  
 
Do Until Count < Total
  
        rs.MoveNext
        
        dtIN = rs![Inicio P] 'captura data do inicio
      
        rs.MovePrevious 'retorna para o registro anterior
        rs.Edit
        rs!ProxI = dtIN
        rs.Update ' atualizei o registro anterior
        rs.MoveNext 'Avança para o registro seguinte
      
  
    
Loop
rs.Close

Set rs = Nothing

    
    

End Sub

nao sei se e so comigo, mas as vezes a função recordCount da umas bugadas.
para garantir que pega o valor certo eu movo para o ultimo registro depois eu uso
a função e depois volto para o primeiro registro. tenta vazer isso:

Código:

rs.MoveLast
Count = rs.RecordCount
rs.MoveFirst
Total = Count - 1

ou vc pode percorrer os registro dessa forma:

Código:


Do While Not rs.EOF
    'seu codigo
Loop


Muito obrigada , funcionou

O forum agredece o retorno.