Hallo www-ler,
vielleicht kann mir einer von Euch weiterhelfen.
Ich habe Datensätze unsortiert in einer Tabelle und möchte diese sortiert in einer neuen Tabelle abspeichern.
Meine Tabellenerstellungsabfrage:
SELECT meinetabelle.feld1, meinetabelle.feld2, meinetabelle.feld3, meinetabelle.feld4, meinetabelle.feld5 INTO neuetabelle
FROM meinetabelle
ORDER BY meinetabelle.feld1, meinetabelle.feld2;
Feld1 und Feld2 sind numerische Felder.
Nach meinem Verständnis müsste ich nun in der neuen Tabelle die Daten sortiert vorliegen haben.
Wenn ich nun aber über folgenden Code auf die Tabelle zugreife, sind die Daten weiterhin unsortiert.
Dim db As Database
Dim rst As Recordset
Set db = CurrentDb()
Set rst = db.OpenRecordset(„neuetabelle“)
With rst
If Not rst.EOF Then
rst.MoveFirst
End If
…
Do While Not rst.EOF
…
rst.Edit
rst!feld5 = …
rst.Update
…
rst.MoveNext
Loop
End With
rst.Close
Damit die Do Loop Schleife korrekte Ergebnisse liefert, müssen die Daten in der Tabelle zwingend sortiert sein. Was mache ich falsch?
Gruß und Danke Silke