…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