Laufzeitfehler 424 - Objekt erforderlich

Hallo Leute,
ich versuche Datensätze mittels einer Schleife zu löschen.

und zwar so:
If recLesen![ISIN] = „------------“ Then
Recordset.Delete
End If

erhalte aber die Meldung:
Laufzeitfehler 424 - Objekt erforderlich

woran liegt das ?

Christian

Hallo,

If recLesen![ISIN] = „------------“ Then
Recordset.Delete
End If

woran liegt das ?

Vermutlich am Code… :sunglasses:

Ehrlich… Was soll man denn dazu sagen? Mindestens den gesamten(!) diesbezüglichen Code solltest Du (per Drag&Drop!) hier reinstellen.

Viele Grüße vom Bodensee
Franz , DF6GL

PS: Feedback erwünscht!

…also gut

Public Sub Leerzeilen_raus()

Dim db As Database
Set db = DBEngine.Workspaces(0).Databases(0)

Dim recLesen, recSchreiben, recISIN As Recordset
Dim intpos As Variant

Dim ISIN As Double

Set recLesen = db.OpenRecordset(„Select * From Alle“)

Do Until recLesen.EOF

recLesen.Edit

If recLesen![ISIN] = „------------“ Then
Recordset.Delete
End If

recLesen.Update
recLesen.MoveNext
Loop
End Sub

Das ist die Schleife mit der ich die Tabelle überarbeite und tuppels die in der Spalte ISIN den Wert „------------“ aufweisen löschen möchte.

Gruß Christian

Hi,

Public Sub Leerzeilen_raus()

Dim db As DAO. Database
Set db = DBEngine.Workspaces(0).Databases(0)

Dim recLesen As DAO. Recordset

Dim intpos As LONG’ Var. überflüssig
Dim ISIN As String : 'Var. überflüssig

Set recLesen = db.OpenRecordset(„Select * From Alle“, dbOpenDynaset ) ’ Tabelle heißt wirklich „Alle“ ?

Do Until recLesen.EOF

If recLesen![ISIN] = „------------“ Then ’ Stimmt dieser String?? Das Carree am Anfang ist vermutlich ein Steuerzeichen…
recLesen.Delete
End If

recLesen.MoveNext
Loop

recLesen.Close
Set recLesen = Nothing
Set db = Nothing

End Sub