Schleife liefert immer nur Wert vom ersten DS?

[Xoar]

Hallo Expertengruppe,

hab ne kleine Frage die für mich nicht logisch erklärbar ist.
Es gibt eine "tblAnwesenheit" mit einem Feld [abwesend]

Nun möchte ich eine Schleife erstellen, in der ich für jeden Datensatz den [abwesend] Wert ausgegeben bekomme. Ist als Zahl definiert.

Code [Auswählen] Erweitern

Dim rs As DAO.Recordset
Dim Anwesenheitwert As Integer
Set rs = DBEngine(0)(0).OpenRecordset("tblAnwesenheit")
Do While Not rs.EOF
    Anwesenheitwert = rs.[b]!abwesend[/b]
     MsgBox ([b]Anwesenheitwert[/b])
     rs.MoveNext
Loop
rs.Close

Er gibt mir aber IMMER nur den Wert des ersten Datensatzes aus, halt nur so oft wie ich Datensätze habe.

Woran liegt das?

[edit]
so klappts.  Hatte nen kleinen Denkfehler, der MsgBox nen falsches Feld zugeordnet

[DF6GL]

Hallo,

am falschen Code....

Dim Anwesenheitwert As Long  'Falls Zahl als Long Integer (empfohlen!) deklariert ist.

   Anwesenheitwert = rs.Fields("abwesend") 'alternativ rs!abwesend probiert und muss funktionieren
     MsgBox (abwesend) Das ist Quatsch
  MsgBox Anwesenheitwert



Nachtrag nach Änderung:

Anwesenheitwert = rs.!abwesend

Hier ist ein Punkt zuviel....

[Xoar]

Jap stimmt, Punkt ist zuviel.