After Midnight On Saturday

[DS]

I have this query that works fine for everyday of the week except Saturday
going into Sunday...What it does is pop-up a form with a listbox containing
menu choices. How can I alter this so that I can have it work for Saturday?
Thanks DS

With Me.ListMenus
..rowsource="SELECT tblMenuSchedule.SchedStartDay,
tblMenuSchedule.SchedStartTime, " & _
"tblMenuSchedule.SchedEndDay, tblMenuSchedule.SchedEndTime,
tblMenus.MenuName, " & _
"tblMenuSchedule.SchedAfterMidnite, tblTerminal.TerminalName " & _
"FROM (tblMenuSchedule INNER JOIN tblMenus ON tblMenuSchedule.SchedMenuID =
tblMenus.MenuID) " & _
"INNER JOIN tblTerminal ON tblMenuSchedule.SchedTerminalID =
tblTerminal.TerminalID & _
"WHERE (((tblMenuSchedule.SchedStartDay)=Weekday(Now())) " & _
"AND ((tblMenuSchedule.SchedStartTime)<Time()) " & _
"AND ((tblMenuSchedule.SchedEndDay)=Weekday(Now())) " & _
"AND ((tblMenuSchedule.SchedEndTime)>Time()) " & _
"AND ((tblTerminal.TerminalName)=Environ("ComputerName"))) " & _
"OR (((tblMenuSchedule.SchedStartDay)=Weekday(Now())) " & _
"AND ((tblMenuSchedule.SchedStartTime)<Time()) " & _
"AND ((tblMenuSchedule.SchedEndDay)>Weekday(Now())) " & _
"AND ((tblMenuSchedule.SchedEndTime)<Time()) " & _
"AND ((tblTerminal.TerminalName)=Environ("ComputerName")));"
End With

 

[DS]

Yep Thats the problem, any suggerstions?
Thanks
DS