something like:
Code:
Public Sub FillBlankRecs()
Dim rst
Dim vVal, vKey, vPrevKey
Dim vStartDirt, vEndDirt
DoCmd.SetWarnings False
Set rst = CurrentDb.OpenRecordset("qsMyQuery")
With rst
While Not .EOF
'the 1st record HAS no prior record
If IsNull(vVal) Then
.Fields("Start_Lots").Value = vStartDirt
.Fields("End_Lots ").Value = vEndDirt
.Update
End If
vStartDirt = .Fields("Start_Dirt").Value
vEndDirt = .Fields("End_Dirt").Value
.MoveNext
Wend
End With
Set rst = Nothing
DoCmd.SetWarnings True
MsgBox "done"
End Sub