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.
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
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....
Jap stimmt, Punkt ist zuviel.