Use the After Update event of the option group. Each option button will
have an option value. The value of the option group will be which ever
button was clicked. Then you use a Select Case statement to open the
report:
Private Sub opgRptSelect_AfterUpdate()
Dim strRptName As String
Select Case Me.optRptSelect
Case 1
strRptName = "SillyNonsenseReport"
Case 2
strRptName = "UselessInfoReport"
Case 3
strRptName = "ConfusingDataReport"
End Select
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.