I am trying to insert records that are in a recordset, and if there is no 

record to end the Add command. I keep getting a No Current Record error.

I have tried to test for 0 length as well as Null with no avail. Can 

someone give me some guidance. Below are some examples of what I am trying.



0 Length:



If rsRFQ!TotalQty = 0 Then

   rsRFQ.Close

   Exit Sub

Else

   Me.TotalQty1 = rsRFQ!TotalQty

   Me.ReleaseQty1 = rsRFQ!Quantity

   Me.ReleaseDate1 = rsRFQ!ReleaseDate

End If



   rsRFQ.MoveNext



If rsRFQ!TotalQty = 0 Then

   rsRFQ.Close

   Exit Sub

Else

   Me.TotalQty2 = rsRFQ!TotalQty

   Me.ReleaseQty2 = rsRFQ!Quantity

   Me.ReleaseDate2 = rsRFQ!ReleaseDate

   End If



Null:



If IsNull(rsRFQ!TotalQty) Then

   rsRFQ.Close

   Exit Sub

Else

   Me.TotalQty1 = rsRFQ!TotalQty

   Me.ReleaseQty1 = rsRFQ!Quantity

   Me.ReleaseDate1 = rsRFQ!ReleaseDate

End If



   rsRFQ.MoveNext



If IsNull(rsRFQ!TotalQty) Then

   rsRFQ.Close

   Exit Sub

Else

   Me.TotalQty2 = rsRFQ!TotalQty

   Me.ReleaseQty2 = rsRFQ!Quantity

   Me.ReleaseDate2 = rsRFQ!ReleaseDate

   End If



Thank you,



Chris