Run-time error '3021' - No Current Record. (1 Viewer)

Ashfaque · Jan 30, 2013

Hi,

Set rst1 = CurrentDb.OpenRecordset("Select WeightInKgPerBag, totalbags from tbl_grouping_Mar")
rst1.MoveFirst

...furter code works well if there are records available in the tbl.

When there is no record in the table, it produces Run-time error '3021' - No Current Record.

How can I come out of this?

Please help.

Thnx

bob fitz · Jan 30, 2013

Try:

Code:

If not rst1.EOF Then
[B]rst1.MoveFirst[/B]
 
...furter code works well if there are records available in the tbl.
 
EndIf

Ashfaque · Jan 30, 2013

Thanks Bob,

It worked at one place and when I used similar trick in another code, it produce Circular Reference Warning.....may be something wrong in my code. I will have to recheck....

Ashfaque · Jan 30, 2013

Attached is the warning...appearing after execution of code

Thanks,

Ashfaque · Jan 30, 2013

Thanks Bob,

I traced out and working smoothly. The END IF was required to place at very end of code lines.

Regards,
Ashfaque

gemma-the-husky · Jan 30, 2013

generally, this loops round all items.

Code:

set rst=currentdb.openrecordset("some query")
 
while not rst.eof
process item
rst.movenext
wend
 
rst.close

Ashfaque · Jan 31, 2013

Thanks GEM,

I will try this WEND also

Regard,

Run-time error '3021' - No Current Record. (1 Viewer)

Ashfaque

Student

bob fitz

AWF VIP

Ashfaque

Student

Ashfaque

Student

Attachments

Ashfaque

Student

gemma-the-husky

Super Moderator

Ashfaque

Student

Similar threads

Users who are viewing this thread