Mit folgendem Code importiere ich Daten aus Excel in Access. Wie kann ich alle Recordsets in der AccessDB löschen die mit dem Inhalt aus Zelle B1 übereinstimmen?
LG
Thomas
Sub ExcelDateienInAccess()
Dim db As database
Dim rs As Recordset
Dim i As Long
Set db = opendatabase("C:\Dokumente und Einstellungen\severa\Eigene Dateien\PLAN.mdb")
Set rs = db.openrecordset("PLAN", dbopendynaset)
i = 0
Sheets("Tabelle1").Range("A2").Select
On Error GoTo fehlerm
Do While ActiveCell.Value <> ""
rs.AddNew
rs!Konto = ActiveCell.Value
rs!KST = ActiveCell.Offset(0, 1).Value
rs!Jahr = ActiveCell.Offset(0, 2).Value
rs!Periode = ActiveCell.Offset(0, 3).Value
rs!Betrag = ActiveCell.Offset(0, 4).Value
rs.Update
ActiveCell.Offset(1, 0).Select
i = i + 1
Loop
MsgBox "Datentransfer erfolgreich beendet! " & Chr(13) & _
"Es wurden " & i & "Sätze eingelesen!"
rs.Close
db.Close
Exit Sub
fehlerm:
MsgBox "Es ist ein Fehler aufgetreten!"
End Sub