OctaFish
Verenigingslid
- Lid geworden
- 6 feb 2009
- Berichten
- 42.038
Volgens mij moet het zoiets zijn...
Code:
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