Prev: CBO List
Next: Access 2007 form won't open?
From: AccessKay on 1 May 2010 12:44
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

From: Allen Browne on 1 May 2010 22:03
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" <AccessKay(a)discussions.microsoft.com> wrote in message
news:6DDF92EF-A7EC-4EE8-848B-17434827FD08(a)microsoft.com...
> 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
>
 | 
Pages: 1
Prev: CBO List
Next: Access 2007 form won't open?