@arnelgp could I just use Open arguments like?
DoCmd.OpenReport "rpt_SpotCheck", acViewPreview, , "WeekEnding = " & Me.txtSpotcheckDate - 4
DoCmd.OpenReport "rpt_SpotCheck", acViewPreview, , "WeekEnding = " & Me.txtSpotcheckDate - 3
The txtSpotcheckDate is the date field and...