Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Register Log in
  • Congratulations Chriss Miller on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Infinate Loop.. not sure why

Status
Not open for further replies.
cranebill

cranebill

IS-IT--Management
Jan 4, 2002
1,113
US
I ran this just to test and it loops infinately.

Rs.MoveFirst
Do Until Rs.EOF

MsgBox Rs!CompanyName


Loop

The recordset only has 1 record.... I am not sure why its looping infinately. Any Ideas?

Bill
 
Sort by date Sort by votes
Try this

Rs.MoveFirst
Do Until Rs.EOF

MsgBox Rs!CompanyName

rs.MoveNext
Loop
 
Upvote 0 Downvote
Nevermind lol... forgot to put in the rs.movenext lol

Man i need a vaca lol

Bill
 
Upvote 0 Downvote
Hi cranebill

It loops indefinitely because it never moves off of the first record in the table.

You need an
Code: 
Rs.MoveNext
after the
Code: 
MsgBox
command.

Regards

Mac
 
Upvote 0 Downvote
Status
Not open for further replies.

Similar threads

Kennelbloke
  • Locked
  • Solved
Split Function not working
Replies
3
Views
493
Kennelbloke
Kennelbloke
Moss100
  • Locked
  • Question
Code not working 1
Replies
5
Views
401
Darrylles
Darrylles
Moss100
  • Locked
  • Question
Stop user changing size of Access Application (not form)
Replies
1
Views
668
Andrzejek
Andrzejek
Moss100
  • Locked
  • Question
Vba filter not working 3
Replies
7
Views
485
Cole Mendoza
Cole Mendoza
JayRo71
  • Locked
  • Question
docmd.TransferText not importing a number field
Replies
1
Views
448
JayRo71
JayRo71

Part and Inventory Search

Sponsor

Back
Top