If OnlyRuhezeitKunden = True Then GoTo RuhezeitPrüfen
Exit Sub
<p></p>
 
RuhezeitPrüfen:
If rKunden("fChkRuhe").Value = True Then 
If DateDiff("d", rKunden("fRuheBegin").Value, Date) >= 0 And DateDiff("d", _
  rKunden("fRuheEnde").Value, Date) <= 0 Then 
Else
GoTo WeiterSuchen
End If
End If
 
If cDB.rKunden("fGender").Value = True Then 
fParent.toolMWCount.Buttons(1).Caption = Val(fParent.toolMWCount.Buttons( _
  1).Caption) + 1 
Else 
fParent.toolMWCount.Buttons(3).Caption = Val(fParent.toolMWCount.Buttons( _
  3).Caption) + 1 
End If 
Exit Sub
 
WeiterSuchen:
cDB.rKunden.MoveNext 
cDB.rKunden.EOF = False 
GoTo RuhezeitPrüfen
Exit Sub