No current Record abfangen

Computer: Software & Programmierung Microsoft Access
#1

Hallo Forum,

Ich möchte gern „No current Record“ abfangen.

Diese Meldung bekomme ich bei folgendem Code:

Do
If AbfNav(0) AbfAcc(0) Then
AbfAcc.MoveNext
Else
MsgBox "Gleicher Datensatz: " & AbfNav(0) & " " & AbfAcc(0)
AbfNav.MoveNext
End If
Loop Until AbfNav.EOF = True

AbfNav und AbfAcc sind recordsets.

Solange in beiden Recordsets passende Werte stehen geht alles
gut. Wenn in AbfNav ein Datensatz ist der in AbfAcc nicht
existiert bekomme ich die Meldung „No current Record“. Das
möchte ich abfangen.

Ich hoffe jemand kann mir helfen.
Viele Grüße
Axel

#2

Bevor man den Cursor innerhalb eines Recordsets neu positioniert, muss man UNBEDINGT die Grenzen abfragen. Hierfür gibt es innerhalb des Recordsetobjektes zwei Methoden,
„EOF“ (End Of File) u. „BOF“ (Begin Of File).
Also, bevor dur „Movest“ immer:

if not rec.EOF then
rec.MoveFirst

do while not rec.EOF
rec.MoveNext
loop
end if

MfG
Andy

#3

Hallo Andy :smile:

Zu erst vielen Dank für den Hilfeversucht. Irgendwie hat mich das ganze allerdings nicht weitergebracht.

Das Problem an sich ist aber gelöst. Ich habe mir mit
res.findfirst und rst.NoMatch geholfen. Damit komme ich
zu dem gewünschten Ergebniss.

Viele Grüße
Axel