As my report opens, this code runs:
Private Sub Report_Open(Cancel As Integer)
sdate = InputBox("Please Enter Shift Report Start Date", "Report Start Date")
edate = InputBox("Please Enter Shift Report End Date", "Report End Date")
If IsDate(sdate) = True And IsDate(edate) Then
Me.Filter...