'fraReports is the Option Group on the form, which lists the reports I want to run
intVal = Forms!frmReports.fraReports.Value
Select Case intVal
'Depending on which option I select, it will chnage the report parameters
'labels. hide \show footers \ change recordsource
Case 1:
strLabel = "Profit and Loss Report" ' Report Heading
Case 2:
strLabel = "Gross Profit" ' Report Heading
Me.ReportFooter.Visible = False 'Hide footer
Case 3:
strLabel = "Revenue Statement" ' Report Heading
Me.ReportFooter.Visible = False ' Hide Report Footer
Me.GroupFooter2.Visible = False ' Hide Footer
Case 4:
strLabel = "Course Revenue" ' Report Heading
strDocName = "qryCourseRevenue" ' Assign query that will act as new recordsource
Me.RecordSource = strDocName ' change recordsource
Me.ReportFooter.Visible = False ' hide header
Me.GroupFooter2.Visible = False ' hide footer
End Select
Me.lblHeading.Caption = strLabel