This code should pick up all instances of the strSearch, and then exit when there are no more matches. All is well until the last record is processed. Then we stay in a loop. Where am I in the file after there are no more matches? I am assuming that the last FindNext will take me to the EOF if there are no more matches. Is that correct?
With rstFacturaHistoria
.FindFirst strSearch
Do While Not .EOF
.Edit
!IdCarnet = Forms!MainQryPedidos1!IdCarnet
Debug.Print !Factura
.Update
.FindNext strSearch
Loop
.Close
End With