PDA

Vollständige Version anzeigen : Beim Laden des Formulars Tabelle leeren


Gast
26.10.2003, 21:14
Ich möchte beim Laden eines Formulars alle vorhandenen Datensätze einer Tabelle löschen.

Mein aktueller Code sieht so aus:

Private Sub Form_Load()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Set db = CurrentDb()
Set rs = db.OpenRecordset("Test")
While Not rs.EOF
rs.Delete
Wend
End Sub

Das führt jedoch beim Aufruf des Formulars zu einer eigenartigen Fehlermeldung "Laufzeitfehler 3167: Datensatz ist gelöscht".
Dabei wird ein Datensatz tatsächlich gelöscht. Aber danach bleibt es halt bei dieser Fehlermeldung und man kann "Testen", "Beenden" etc.

Hat jemand eine Idee?

Johnny Loser
26.10.2003, 22:05
Private Sub Form_Load()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Set db = CurrentDb()
Set rs = db.OpenRecordset("Test")
rs.MoveFirst 'Nur so zur Sicherheit
Do While Not rs.EOF
rs.Delete
rs.MoveNext 'Du solltest den Datensatz auch wechseln
Loop
End Sub

Aber einfacher:

Private Sub Form_Load()
CurrentDb.Execute("DELETE FROM Test")
End Sub

Gast
26.10.2003, 22:24
hat sich erledigt

natürlich fehlt da
rs.MoveNExt