Code blijft in LOOP

Status
Niet open voor verdere reacties.

Snabugje

Gebruiker
Lid geworden
7 nov 2008
Berichten
49
Hallo beste mede - programmeurs!

Mijn code blijft een klein beetje hangen:

Code:
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 :confused:

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

alvast bedankt:cool:

Snabugje
 
vreemd. verwijder rstverlof.EOF en gebruik .EOF

HTH:D
 
Laatst bewerkt:
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:

Code:
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 :D
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 :confused:

gr snabugje
 
Laatst bewerkt:
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?
 
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:
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan