Pop Up Menu for Reports

[Guest_imported]

l2n77 (Visitor) Feb 27, 2002
I have a question with the reports within a db. i have a pop up menu in which a user can select a specific date to pull a report from. the combo box is reportdatebox and the field name is Report_Date. This is the current code i have. But it doesn't work. help!

stWhere = "[Report_Date]="
stRptName = "Daily Report"

If reportdatebox <> &quot;&quot; Then
DoCmd.OpenReport stRptName, acViewPreview, stWhere & reportdatebox
End If

 

[TerpFan2001]

Try enclosing the date with #

Dim stWhere as String
Dim stRptName as String

If IsDate(Me.ReportDateBox) = True then

stWhere = &quot;[Report_Date]=#&quot; & Me.ReportDateBox & &quot;#&quot;

stRptName = &quot;Daily Report&quot;

DoCmd.OpenReport stRptName, acViewPreview, stWhere

Else

MsgBox &quot;Please Select A Date&quot;, vbInformation

End If