3021 error when working with a recordset

[Kumal]

I'm getting a "3021 - Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record. ADODB.Field" error when I try to move to the next record.

Any ideas?

If Not MRKTPromo.BOF And Not MRKTPromo.EOF Then

Do While Not MRKTPromo.EOF


sqlstr = "insert into PromoStatus (PlayerID, PromoName) values ('" & PlayerID & ""
sqlstr = sqlstr + "', " & MRKTPromo!PromoName & ")"

Debug.Print sqlstr
'DoCmd.SetWarnings False
'DoCmd.RunSQL sqlstr
'DoCmd.SetWarnings True


Debug.Print MRKTPromo.EOF
MRKTPromo.MoveNext
Loop
End If
End Sub

 

[ClulessChris]

I May be way off base here, but i don't understand how you can create a recordset inside a loop that references that recordset.


Everybody is somebodys Nutter.

 

[Kumal]

Disregard.