Code blijft in LOOP

[Snabugje]

Hallo beste mede - programmeurs!

Mijn code blijft een klein beetje hangen:

With rstverlof
        .MoveFirst
        Do Until rstverlof.EOF
            mindagen = mindagen + ![aantal dagen]
            .MoveNext
            Debug.Print mindagen
        Loop
End With

In een functie staat de hierboven geschreven code.
Nu blijft deze in de lus/loop hangen. Hij stopt niet meer

Ziet iemand anders de fout??
Wil je meer zien van de code, misschien dat de fout daar ligt, geef even gil

alvast bedankt

Snabugje

 

[Guus2005]

vreemd. verwijder rstverlof.EOF en gebruik .EOF

HTH

 

[Snabugje]

vreemd. verwijder rstverlof.EOF en gebruik .EOF

HTH

Hallo Guus,

bedankt voor je reactie:thumb:

Dat stukje had ik ook al gezien en verwijderd maar hij blijft doorgaan

snabugje

 

[Snabugje]

Ik ben achter nog een probleem gekomen, in dezelfde code:

als ik 'debug.print .recordcount' neerzet voert VBA 'm niet uit.
vba zegt dan:
<Objectvariabele of blokvariabele With is niet ingesteld>

maar m'n code ziet er als volgt uit:

Set rstverloffilter = db.OpenRecordset("verlof", dbOpenDynaset)

<.....>

verloffilter1 = BuildCriteria("goedgekeurd", dbText, "ja") & " and "
    verloffilter1 = verloffilter1 & BuildCriteria("van", dbDate, ">=" & startdatum & " and <=" & einddatum) & ") Or ("
    verloffilter2 = BuildCriteria("goedgekeurd", dbText, "ja") & " and "
    verloffilter2 = verloffilter2 & BuildCriteria("tot", dbDate, ">=" & startdatum & " and <=" & einddatum) & ")"

<.....>

verloffilter = "(" & BuildCriteria("naam", dbInteger, naamid) & " and " & verloffilter1 & BuildCriteria("naam", dbInteger, naamid) & " and " & verloffilter2

rstverloffltr.filter = verloffilter
Set rstverlof = rstverloffltr.OpenRecordset
        With rstverlof
                .MoveLast
                .MoveFirst
                lngcount = lngcount + .RecordCount
                Debug.Print lngcount
                Debug.Print .RecordCount
        End With

enig idee?


..........
EDIT:
Fout is gevonden hoor
als je goed naar de code hierboven kijkt zie je dat ik eerst Set rstverloffilter = db.OpenRecordset("verlof", dbOpenDynaset) neerzet.
En vervolgens steeds rstverloffltr gebruik

gr snabugje

 

[Guus2005]

Ik dacht al dat je code goed was (in eerste instantie) en dat je niet in een oneindige lus zat, maar dat je resultaat veel groter was dan dat je verwachtte.

bedankt voor de terugkoppeling. Staat je vraag al op opgelost?

 

[Snabugje]

Daar zat ik dus ook mee.
maar na lang zoeken heb ik het gevonden:thumb:

"Zoekt en gij zult vinden"

Ik had 'm gelijk op opgelost gezet.

Bedankt!:thumb: