Loop probleem (blijft altijd op de eerste record staan)

[ddjelle]

Hallo,

Ik ben aan het proberen om een loop te maken maar ik geraak er niet uit.
Ik heb een simpele bijlage toegevoegd.

1 tabel: met 10 cijfers erin 1, 2, 3, ... tot 10
Op deze tabel heb ik een formulier gemaakt en op dit formulier een button geplaatst.
Even bij klikken:

Dim db As Database
Dim rs As Recordset

Set db = CurrentDb
Set rs = db.OpenRecordset("tblNummer", dbOpenDynaset)

rs.MoveFirst

Do While Not rs.EOF
MsgBox (Nummer)
rs.MoveNext
Loop

Als alles goed gaat zou hij elke keer een msgbox moeten geven met een cijfer dat oploopt.
Ik krijg nu 10 keer de melding "1".
Iemand een idee waarom mijn "rs.MoveNext" het niet doet?

Alvast bedankt.

 

[Harry46]

Moet zijn:
MsgBox (rs!Nummer)

 

[OctaFish]

Probeer dit eens?

MsgBox rs.Fields("Nummer").Value

Michel

 

[ddjelle]

bedankt.
Met je antwoord heb ik de fout in mijn scriptje gevonden.
Probleem opgelost (op naar het volgende om weer dagen aan te zoeken )