Prompt in a report, or supress extra pages

[Stacey]

Hello!

First off, thanks for all the help everyone has given me in the past, you guys are awesome!

I have a report that has two subforms, which are charts. The charts are based on queries. My problem is I want the date from the query to show up on the report. The only way I can figure out to do this is to base the form on the query and put in the Date field. However, when I do this, it creates a chart for each record. So I am getting 9 pages, exactly the same, on the report, when I only need 1.

Is there any way to prompt for a date when the report is opened without having it based on the query?

I hope I have explained this well enough that you can understand my problem.

Thanks!
Stacey

 

[Loolaa]

have this in the OnOpen event.....

dim VarDate as date

VarDate = inputbox("Enter Date")

you can then pass this value to your query or to a text box

hope this is what you were after

L

 

[Stacey]

I'm sorry, how do I pass the date input to a text box on the report?

 

[Loolaa]

Have a play around with this.....

Option Compare Database


Private vardate As Date


Private Sub PageHeaderSection_Print(Cancel As Integer, PrintCount As Integer)

Me!txtbox = vardate

End Sub



Private Sub Report_Open(Cancel As Integer)

vardate = InputBox("enter date")

End Sub

L

 

[Rich]

Or =DMax("dateField","qryName")

 

[Stacey]

Thank You!