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… 
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