Trying not to Schedule Classes around Lunch Time

[boywonder381]

I'm trying not to schedule courses around lunch time, but the following code I use will not schedule untill the LunchEnd time:

If TimeBeg >= rsShifts!LunchBegin And CDuration <= rsShifts!LunchEnd Then


TimeBeg = rsShifts!LunchEnd
End If

If TimeBeg >= rsShifts!LunchBegin And CDuration >= rsShifts!LunchEnd Then
TimeBeg = rsShifts!LunchEnd
End If

If TimeBeg <= rsShifts!LunchBegin And CDuration >= rsShifts!LunchEnd Then
TimeBeg = rsShifts!LunchEnd
End If

If TimeBeg <= rsShifts!LunchBegin And CDuration <= rsShifts!LunchEnd Then
TimeBeg = rsShifts!LunchEnd
End If

I started with the first If, End If statement and it helped by not scheduling classes if the TimeBeg was greater than the LunchBegin. But I still had problems with if a class was scheduled before LunchBegin and the CDuration, which is the end of the class was schedule in between the Lunch Time.

Could anyone help pleasssseeeee...

[orange]

see this for help

[boywonder381]

Thanks Orange... Your solution is to grab records within a time range and place them in a recordset. I want to grab these records and give them a new start time which would be the end of the lunch period. I tried your scenario, but it still was grabbing records within the lunch time range.

[boywonder381]

Orange, I looked at your diagram again and wrote the following code:

If TimeBeg <= rsShifts!LunchBegin And CDuration <= rsShifts!LunchEnd Then
If CDuration > rsShifts!LunchBegin Then
TimeBeg = rsShifts!LunchEnd
End If
End If

If TimeBeg >= rsShifts!LunchBegin And CDuration <= rsShifts!LunchEnd Then
TimeBeg = rsShifts!LunchEnd
End If

If TimeBeg >= rsShifts!LunchBegin And CDuration >= rsShifts!LunchEnd Then
If TimeBeg < rsShifts!LunchEnd Then
TimeBeg = rsShifts!LunchEnd
End If
End If

If TimeBeg <= rsShifts!LunchBegin And CDuration >= rsShifts!LunchEnd Then
TimeBeg = rsShifts!LunchEnd
End If

- - - - - - - - - - -

It worked like a champ... Thanks alot Orange.