Do While ... Loop

[OctaFish]

Volgens mij moet het zoiets zijn...

ull(Me![Subform GT Honden2]![GTSubOnderdeel]) Then
    Do
        Do While Counter < 20
            On Error GoTo Foutje
            Counter = Counter + 1
            ....
            DoCmd.OpenQuery QueryName, acViewNormal, acEdit
            DoCmd.GoToRecord , , acNext
        Loop
    Loop Until Check = False
 DoCmd.GoToRecord , , acFirst
Else
    Msg = "Reeds uitgevoerd"
    Style = vbOKOnly + vbCritical + vbDefaultButton2
    Title = "Let op!"
    Response = MsgBox(Msg, Style, Title)
End If

Foutje:
    MsgBox "Doe hier je foutmelding"
    Return

 

[Isabelle Sels]

Beste OctaFish,

Sorry voor het lastig vallen, maar heb je misshien al een keer kunnen kijken voor een oplossing?
Alvast bedankt

Isabelle

 

[Isabelle Sels]

Sorry had nog niet op pagina 2 gekeken, was even te snel.
Ga het proberen met jou oplossing en laat nog iets weten.