User Name Password Register
DaniWeb IT Discussion Community
All
What is DaniWeb IT Discussion Community?
You're currently browsing the Visual Basic 4 / 5 / 6 section within the Software Development category of DaniWeb, a massive community of 391,976 software developers, web developers, Internet marketers, and tech gurus who are all enthusiastic about making contacts, networking, and learning from each other. In fact, there are 4,129 IT professionals currently interacting right now! Registration is free, only takes a minute and lets you enjoy all of the interactive features of the site.
Please support our Visual Basic 4 / 5 / 6 advertiser:

Do until recordset

Join Date: Nov 2006
Posts: 695
Reputation: QVeen72 is an unknown quantity at this point 
Rep Power: 3
Solved Threads: 95
QVeen72's Avatar
QVeen72 QVeen72 is offline Offline
Practically a Master Poster

Re: Do until recordset

  #4  
May 13th, 2008
Hi,

Try this :

  1. Do While Not rs.EOF
  2. Let PNUM(1, ctr) = rs!WONUM
  3. Let PNUM(2, ctr) = rs!COMPLETIONDATE
  4. Let PNUM(3, ctr) = rs!EMPCODE
  5. Let PNUM(4, ctr) = Eqnum
  6. '
  7. rs.MoveNext
  8. Let ctr = ctr + 1
  9. If ctr > 1 And Not rs.EOF Then
  10. If (rs!COMPLETIONDATE > PNUM(2, ctr)) Then
  11. Exit Do
  12. End If
  13. End If
  14. Loop

REgards
Veena
Reply With Quote  
All times are GMT -4. The time now is 9:33 am.
Forum system based on vBulletin Copyright ©2000 - 2008, Jelsoft Enterprises Ltd.
©2003 - 2008 DaniWeb® LLC