How to filter 2 reports with 1 form?

[tihmir]

Hi all. I have a filter form. I wanna use this form to filter 2 reports and extract in pdf file. Here is my databese:

 

[theDBguy]

Hi. You could try adding one more variable for the second report and then add one more OpenReport line to open the second report.

 

[tihmir]

Hi. You could try adding one more variable for the second report and then add one more OpenReport line to open the second report.

Could you write it for example, please?

 

[theDBguy]

Could you write it for example, please?

In your code, you have these:

Dim strReport As String
...
strReport = "rpt_Inspections"
...
DoCmd.OpenReport strReport, lngView, , strWhere

All I'm saying is add one more to duplicate those lines. For example:

Dim strReport As String
[b]Dim strReport2 As String[/b]

...
strReport = "rpt_Inspections"
[b]strReport2 = "NameOfYourOtherReportHere"[/b]

...
DoCmd.OpenReport strReport, lngView, , strWhere
[b]DoCmd.OpenReport strReport2, lngView, , strWhere[/b]

Hope that helps...

 

[arnelgp]

check the Click event of the button.

 

[tihmir]

check the Click event of the button.

Something goes wrong, arnelgp . It show me this:


This is when I press button "Another Report"

 

[tihmir]

I am not sure Is it possible to create a report like this - one report with Inspections and AnoterTask to filter them with filter form with only one button

 

[Gasman]

Something goes wrong, arnelgp . It show me this:


This is when I press button "Another Report"

Try comparing the click event of each control?

 

[Gasman]

I am not sure Is it possible to create a report like this - one report with Inspections and AnoterTask to filter them with filter form with only one button

Of course it is, arnelgp has just done it for you, but expected you to write the code for the second report, using the first button as an example.?

 

[tihmir]

I can not do it! I am trying but nothing :banghead::banghead::banghead:

 

[Gasman]

I can not do it! I am trying but nothing :banghead::banghead::banghead:

=doPrintReport("rpt_AnotherTask")

????????????

 

[arnelgp]

don't bang your head.
this will appease you.

 

[tihmir]

don't bang your head.
this will appease you.

Now it is works perfect, arnelgp!!!Thank you again!

 

[arnelgp]

you're welcome and go ahead make your next move.