Reports 1

[Krash878]

I have a form and a report that both have a date field. I would like to have the form have an opject that when clicked prints out all the Items that have that date.

the code is

Private Sub Command21_Click()
On Error GoTo Err_Command21_Click

Dim stDocName As String

stDocName = "Worksheet"
DoCmd.OpenReport stDocName, acNormal, , "Date =" & Me![DateM]

Exit_Command21_Click:
Exit Sub

Err_Command21_Click:
MsgBox Err.Description
Resume Exit_Command21_Click

End Sub

my problem is I am getting blank pages and only one page
thanks
Kenny

 

[TTThio]

DoCmd.OpenReport stDocName, acNormal, ,
"[Date] = # "& Me.DateM &" #"

 

[Krash878]

Perfect thanks
Kenny