Allen Browne’s date range vba for more reports


A

AccessKay

I created an unbound form and used Allen Browne’s vba for “Limiting Report to
Date Rangeâ€. This works nicely. But I want to use this vba to pull two
other reports. I could make three command buttons and put the report label
name beside them but I don’t think I’ll like how this looks. I created an
option group for my reports that previews the reports on click but it’s not
connected to the date range. So my question is, how can I have an option
group of reports for my date range? I thought I might take a stab at doing
it myself, and post again later with either my success or failure. But I’m
new with vba and have a few questions to get me started.

1.Is it advisable to combine the vba for the date range and the vba for the
option group? They both have on click commands so I’m thinking that one has
to go. So my assumption for the rest of these questions is yes, that I do
need to combine them, but please correct me if I’m wrong.

2.Allen Brown’s vba defines the report first with Dim strReport As String
and then later with strReport = “MyRpt1â€. If I want to add two more reports,
do they need to be defined in these same sections? Maybe like Dim strReport2
As String and strReport2=â€MyRpt2â€??? Is this what I need to do?

3.Then in Allen’s vba, it’s If statements with a strWhere. The code for the
option group is Select Case Me.optReports and then each case ie Case1
strReport = “MyRpt1â€, etc. Should this be incorporated into a strWhere
statement? From what I’ve learned so far, I think so but I’m really stumped
about how to do this. Any suggestions?

4.And then comes the DoCmd.OpenReport strReport, acPreview part. I’m
thinking that if I wrote my strWhere statement correctly, then this will work
for whatever option I choose. Correct?

5.And then there is the Error Handler part that I don’t have a clue so maybe
I’ll skip this part for now.

If you’ve read my post this far, then I sincerely thank you. If you think
that I need to give it up then please tell me so. I know I’m in way over my
head. I’ll take any suggestions and give it a try or not.

Many thanks for any replies.
Kay
 
Ad

Advertisements

A

Allen Browne

You can get a good result by combining:
- an option group for selecting the report
- text boxes for the limiting dates
- a command button to open the report.

Given the code in Method 2 at:
http://allenbrowne.com/casu-08.html
you choose the lines:
strReport = "rptSales" 'Put your report name in these quotes.
strDateField = "[SaleDate]" 'Put your field name in the square brackets
in these quotes.
with something like the following:

Select Case Me.Frame99.Value
Case 1
strReport = "Report1"
strDateField = "[InvoiceDate]"
Case 3
strReport = "SomeOtherReport"
strDateField = "[AppointmentDate]"
Case 3
strReport = "Report9"
strDateField = "[EventDate]"
Case Else
MsgBox "I don't know what to do with option " & Me.Frame99.Value
End Select

The error handler part can stay as it is.
 
Ad

Advertisements

A

Allen Browne

That's great news. Well done.

--
Allen Browne - Microsoft MVP. Perth, Western Australia

Reply to group, rather than allenbrowne at mvps dot org.


AccessKay via AccessMonster.com said:
Hi Allen,

Thank you very much! This is exactly what I needed. It’s so professional
and user friendly. I plan to use it many times in the future. I
appreciate
your help and I also wanted to thank you for your fantastic website. If I
can follow your clear and concise instructions, anyone can. Good job!

Kay


Allen said:
You can get a good result by combining:
- an option group for selecting the report
- text boxes for the limiting dates
- a command button to open the report.

Given the code in Method 2 at:
http://allenbrowne.com/casu-08.html
you choose the lines:
strReport = "rptSales" 'Put your report name in these quotes.
strDateField = "[SaleDate]" 'Put your field name in the square
brackets
in these quotes.
with something like the following:

Select Case Me.Frame99.Value
Case 1
strReport = "Report1"
strDateField = "[InvoiceDate]"
Case 3
strReport = "SomeOtherReport"
strDateField = "[AppointmentDate]"
Case 3
strReport = "Report9"
strDateField = "[EventDate]"
Case Else
MsgBox "I don't know what to do with option " & Me.Frame99.Value
End Select

The error handler part can stay as it is.
I created an unbound form and used Allen Browne’s vba for “Limiting
Report
to
[quoted text clipped - 48 lines]
Many thanks for any replies.
Kay
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top