I've been stumped on this for a while this is where it breaks, it runs through this loop but when I step out of it, that's when it gives the Invalid Use of Null error, any ideas anyone??????
Code:
Do While Not rs1.EOF
delivery_desc = rs1.Fields(2)
If Not IsNull(rs1.Fields(1)) Then
date_difference = rs1.Fields(0) - rs1.Fields(1)
Else
date_difference = rs1.Fields(0) - Date
End If
rs2.AddNew
If date_difference > 0 Then
rs2.Fields(0) = date_difference
ElseIf date_difference < 0 Then
rs2.Fields(1) = date_difference
Else
rs2.Fields(0) = 0.1
End If
rs2.Fields(2) = delivery_desc
rs2.Update
rs1.MoveNext
Loop