Invalid Use of Null!?!

[Kipster1203]

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??????

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

[Kipster1203]

I figured it out, you all can rest easy tonight...

[RuralGuy]

Care to share your solution with the rest of the readers of this forum while you follow the link in my sig to mark this thread as Solved?

[Kipster1203]

Care to share your solution with the rest of the readers of this forum while you follow the link in my sig to mark this thread as Solved?

Do While Not rs1.EOF
    rs2.AddNew

    rs1.Fields(2) = rs2.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
                
    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.Update
          rs1.MoveNext
Loop

Sometimes Access only wants things done one way...

[RuralGuy]

Great! Go ahead and follow the link in my sig for directions on how to mark this thread as Solved.