Try customising this and placing it under the button you use to open to open the report
Dim strCriteria As String
Dim strDoc As String
strDoc = "RptName"
strCriteria = "[datefield]="& date
DoCmd.OpenReport strDoc, acViewPreview, , strCriteria
DoCmd.Maximize
This allows you to use the report in a number of ways. If the report is just used for the one purpose, you could also just type date() as the criteria in the date column of the underlying query.