Records with missing data

[Chase]

I have a number of records in a csv file. Where the detail in the first row
is the same as in the second row it is omitted.

How do I code the to replicate the missing date for the previous row?
I get the error (3020 : Update or CancelUpdate without AddNew or Edit) on
the code below

Dim DB As DAO.Database
Dim rst As DAO.Recordset
Set DB = CurrentDb()
Set rst = DB.OpenRecordset("SELECT * From tblTemp2Upload")
Do Until rst.EOF
If IsNull (rst.Fields("QryType")) Then
rst.Fields("QryType") = rst.Fields("QryType")
End If
rst.MoveNext
Loop

Please Help

Chase

 

[Stefan Hoffmann]

hi Chase,

How do I code the to replicate the missing date for the previous row?

Run through your temporary data backwards:

Dim prevDate As Date

rst.MoveLast
prevDate = Now 'or another marker date
Do While Not rst.BOF
If IsNull(rst![Date]) Then
rst.Edit
rst![Date] = prevDate
rst.Update
End If
prevDate = rst![Date]
rst.MovePrevious
Loop

I get the error (3020 : Update or CancelUpdate without AddNew or Edit) on
the code below

The error has nothing to do with your question. Using .Edit and .Update
will fix it.

Do Until rst.EOF
If IsNull (rst.Fields("QryType")) Then rst.Edit
rst.Fields("QryType") = rst.Fields("QryType") rst.Update
End If
rst.MoveNext
Loop

mfG
--> stefan <--