mit diesem Makro suche ich einen Datensatz in der Datenbank, wenn der Datensatz nicht vorhanden ist bekomme ich die Fehlermeldung BOF oder EOF = True.
Jetzt behelfe ich mich mit On Erro goto Fehler gibt es eine besser Lösung das alle Datensätze durchsucht sind und der Datensatz nicht gefunden ist
Dim ADOC As New ADODB.Connection
Dim DBS As New ADODB.Recordset
Dim s As Variant
Dim a As Variant
ADOC.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\test.mdb;"
s = ActiveSheet.Cells(2, 2)
ss = "ArtikelNr = '" & s & "'"
DBS.Open "Artikel", ADOC, adOpenKeyset, adLockOptimistic
DBS.Find ss
On Error GoTo weiterEnde
Gruß Harald