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.
--
Allen Browne - Microsoft MVP. Perth, Western Australia
Tips for Access users -
http://allenbrowne.com/tips.html
Reply to group, rather than allenbrowne at mvps dot org.
"AccessKay" <(E-Mail Removed)> wrote in message
news:6DDF92EF-A7EC-4EE8-848B-(E-Mail Removed)...
> 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
>
Similar Threads
