Why 'for next' works but 'while wend' does not

[lawdy]

Following is a partial function. The 'for next' methods works, but of course it only located 4 records (there are many more). The 'while when' methol freezes on line"If InvPaymentsRST.NoMatch = False Then". The for next code is:

For i = 1 To 4
InvPaymentsRST.FindNext "fDateReceived >= #" & datePaid & "#"
If InvPaymentsRST.NoMatch = False Then
Debug.Print InvPaymentsRST![fLngInvNo]
Debug.Print InvPaymentsRST![fDateReceived]
End If ' If Not InvPaymentsRST.NoMatch Then
Next

The while wend code is:

While InvPaymentsRST.EOF = False
InvPaymentsRST.FindNext "fDateReceived >= #" & datePaid & "#"


If InvPaymentsRST.NoMatch = False Then ' #2
Debug.Print InvPaymentsRST![fLngInvNo]
Debug.Print InvPaymentsRST![fDateReceived]
End If ' If Not InvPaymentsRST.NoMatch Then
Wend

Any help is appreciable.

[pbaldy]

If appropriate to the overall process, it would make more sense to open the recordset on an SQL statement that only pulled those records, then loop the recordset. Far more efficient to only pull needed records across the wire.

[lawdy]

Yes, but is is a long process either way. I currently do it with 3 queries (there is a lot more to the process). I am trying to get it down to a one button process.

[pbaldy]

It sounds like the process would support it, so why not do it? Then your loop is a simple

Do While Not InvPaymentsRST.EOF

And you've made it more efficient by only pulling the necessary records.

[lawdy]

I do it now using queries. I first query the current month's payments from the table with it link to another table which get the Invoice # and city name. Then I do a sum query to get the total amount for each location. Once this is done, still have to look up each location to get the city tax rate, city number, and the same info for transit taxes and any special taxes. This part would be very tricky for a query (for me anyway). That is why I am trying to do it with one button.