can you show us the code where you set rs?

it's basically saying that it's not seeing where rs was initialized.

For example, if your "set rs = db.openrecordset"... is inside your loop, you'll need to close it inside the loop, or if it was set inside an if/then statement block, then it may not have gotten set for a particular instance.

I would move the rs.close and rsdetail.close statements into the loop right before "next" since they are set near the beginning of the loop.

I may be overlooking it, but did you "Set rs = Nothing"?

Sandra Look at an earlier image (the one with rs.Close highlighted).

Sorry about that.

Sandra, Yes, I set the rs=Nothing details enclosed.

Donald, I tried move rs.Close and rsDetail.Close before the Next i, in the Code. But I still get a Error Message. I looked around and through the Code and have not seen everything that would create this Error Message, cause I use a similar Code in other Forms to Schedule or Generate Future Dates.

You are missing .Form in the Subform references.

Value From Subform

Hey Kevin, I went back to the Code and fix the Subform .Form for the Fields need the be inserted into the Future Invoices. But I am still get the same error message.

Hi James, just thinking (typing) out loud...

1) You're declaring your recordsets on each iteration of the loop(s). Is that necessary since you're just opening each to a table to add records, might it be more efficient just to open each before going into your loop for example:

Details

     Set db = CurrentDb
     Set rs = db.OpenRecordset("RecurringInvoiceT")
     Set rsDetail = db.OpenRecordset("RecurringInvoiceTemplateDetailT")

     ' Loop through each Future Recurring Invoices
     For i = 1 to CountRecInvoice
...
Copy

Then your "rs.close" and "rsDetail.close" could be outside of the loop like you originally had it without any issues.

2) As I was looking at the above "set rs..." and "set rsDetail..." placement I noticed that you DID Dim "CountRecInvoice", however, you never assigned a value to it. So your loop is never running to declare the rs and rsDetail because it essentially reads "For i = 1 to 0"

So, I think, regardless of whether you apply suggestion 1, you'll not see any change until you address # 2.

Hope this helps. Don

Thank Donald, I find got it. You was correct thanks again.