Guten Tag,

ich habe das Problem, dass ich die Fehlermeldung "3021 Kein aktueller Datensatz" bekomme. Ich habe ein Recordset welches in einer Schleife durchlaufen wird, teilweise vollständig, teilweise nicht. Das ein Record gelöscht werden soll kann aber nur passieren wenn das Recordset nicht vollständig durchlaufen wurde. Das heißt wenn ein Record gelöscht werden soll gibt es immer einen Record welches gelöscht werden kann.

Ungefähr der Code:

Dim vorname As String
vorname = "Max"
Dim argument1 As Boolean
Dim argument2 As Boolean
argument1 = True
argument2 = True

beispielRecordset = CurrentDB.OpenRecordset("tbl-beispiel")
Do While beispielRecordset.EOF
If beispielRecordset!vorname = vorname Then
argument2 = False
Exit Do
End If
beispielRecordset.MoveNext
Loop

If argument1 And Not argument2 Then
beispielRecordset.Delete
End If

Vielen Dank für jegliche Hilfe und Viel Grüße!