Thanks. That made me actually read the code and realize I left a part out. Sorry. First- the code:
Private Sub Form_Open(Cancel As Integer)
Select Case Format(Date, "dddd")
Case "Tuesday"
Select Case Format(Now, "h")
Case Is < 3
DoCmd.OpenForm "frmSpring"
Case Is < 9
DoCmd.OpenForm "frmFall"
Case Is < 17
DoCmd.OpenForm "frmWinter"
End Select
Case "Wednesday"
Select Case Format(Now, "h")
Case Is < 3
DoCmd.OpenForm "frmFord"
Case Is < 9
DoCmd.OpenForm "frmChevy"
Case Is < 17
DoCmd.OpenForm "frmBicycle"
End Select
Case "Friday"
Select Case Format(Now, "h")
Case Is < 3
DoCmd.OpenForm "frmSales"
Case Is < 9
DoCmd.OpenForm "frmArrival"
Case Is < 17
DoCmd.OpenForm "frmDeparture"
End Select
Case Else
Select Case Format(Now, "h")
Case Is < 3
DoCmd.OpenForm "frmMarksDat"
Case Else
DoCmd.OpenForm "frmKarensData"
End Select
End Select
End Sub
1 Main form. This form determines the time and date as the code above shows,
The part I omitted was a form, blank, with an on open event that runs the query. Each quesry has it's on code. Doesn't have to...since it knows the time and date, it can docmd.openquery....or whatever. My forms have much more behind them than a one liner so I made different forms.