Loop

Jeg har ca. 2500 poster i formularen, og skal have tildelt feltet "Kampagne" en numerisk værdi, som bestemmes af Inputboksen "A". Inden løkken startes, filtrerer jeg posterne ved Access filtreringsværktøj.
Det fungerer efter hensigten bortset fra, at når jeg når til den sidste post, får jeg fejlen:

Du kan ikke gå til den angivne post.

Uanset om posterne er filtrede eller ej.

Hvis jeg fjerner linien "DoCmd.GoToRecord o.s.v." opstår fejlen jo ikke, men Access går så heller ikke til næste post.
Jeg kan override fejlen ved en Errorhandler, men det forekommer mig ikke at være en optimal løsning.

Koden ser således ud:
Dim As String
A = InputBox(Prompt:="Indtast kampagnens ID:", Title:="Kampagne")
DoCmd.GoToRecord acForm, "TildelkampF", acFirst
If Kampagne <> A Then
Do
Forms!TildelkampF!Kampagne = A
DoCmd.GoToRecord acForm, "TildelkampF", acNext, 1
Loop While Me.Kampagne <> A
End If