Do Until rs.EOF - doesn't end ?

Posted on 2006-04-04
Medium Priority
Last Modified: 2008-03-10

The following "Do Until" loop never ends.
How can I have it stop at the end of the table, "Tempstorage" ?

Dim rs As Recordset
Set db = CurrentDb()
Set rs = db.OpenRecordset("Tempstorage", dbOpenDynaset)


   Do Until rs.EOF

Phil Miller
Question by:pillmill
1 Comment
LVL 77

Accepted Solution

peter57r earned 500 total points
ID: 16376458
Hi pillmill,
>  Do Until rs.EOF

rs.movenext  ...


Featured Post

Industry Leaders: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

We live in a world of interfaces like the one in the title picture. VBA also allows to use interfaces which offers a lot of possibilities. This article describes how to use interfaces in VBA and how to work around their bugs.
Explore the ways to Unlock VBA Project Password Excel 2010 & 2013 documents. Go through the article and perform the steps carefully to remove VBA Excel .xls file.
Basics of query design. Shows you how to construct a simple query by adding tables, perform joins, defining output columns, perform sorting, and apply criteria.
Access reports are powerful and flexible. Learn how to create a query and then a grouped report using the wizard. Modify the report design after the wizard is done to make it look better. There will be another video to explain how to put the final p…
Suggested Courses

850 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question