|
Hallo zusammen,
ich habe eine kleine Routine, die ich im Prinzip schon x-fach in meinem Programm so oder so ähnlich nutze, aber in der konkreten Ausführung funktioniert MoveNext nicht. Ich habe eine kleine sql-routine, die ich anschließend mit einer Do-Until-Loop Schleife durchlaufen und dabei mit MoveNext die einzelnen Datensätze ansprechen möchte. In dem konkreten Beispiel hat die Datei (QBamfUmstufung) 3 Datensätze. So sieht der Quelltext aus:
Private Sub Befehl44_Click()
Dim db As Database
Dim iCount As Integer
Dim rs As DAO.Recordset
Dim sTest As String
Dim sAss As String
Set db = CurrentDb
Set rs = CurrentDb.OpenRecordset("QBamfUmstufung", dbOpenDynaset)
rs.MoveFirst
iCount = DCount("teTyp", "QBamfUmstufung") '3
rs.MoveFirst
Do Until rs.EOF
sTest = sTest + teTyp + " " + Str(teDatum) + " " + teErgebnis & vbCrLf
sAss = tenote
MsgBox "Vor " + Str(teNr)
rs.MoveNext 'bleibt immer auf dem gleichn DS stehen??
MsgBox "nach " + Str(teNr)
Loop
rs.Close: Set rs = Nothing
Set db = Nothing
End Sub
Für eine Idee, warum MoveNext nicht den jeweils nächsten Datensatz aufruft, wäre ich sehr dankbar.
|