If Me.Day <> Me.Till Then
GoSub Calc1
Else
DoCmd.RunMacro "M_Roombooking", 1
DoCmd.RunMacro "M_Vernieuwen", 1
End If
Exit Sub
Calc1:
DoCmd.RunMacro "M_Roomsfree", 1
Return
The meaning is that the Macro "M_Roomsfree" repeat himself as long Me.Day <> Me.Till.
In this case the macro repeat himself...