Dim stReport as String
Dim stCriteria as String
Select Case Me.frReports 'Option group method
Case 1
stReport = "report1"
Case 2
stReport = "report2"
Case Else
stReport = "report3"
End Select
If Not IsNull(Me.PersonID) Then
stCriteria = "PersonID = " & Me.PersonID
End If
If Not IsNull(Me.StartDate) Then
If stCriteria = "" Then
stCriteria = "SomeDate >= #" & Me.StartDate & "#"
Else
stCriteria = stCriteria & " AND SomeDate >= #" & Me.StartDate & "#"
End If
If stCriteria = "" Then
DoCmd.OpenReport stReport, acViewPreview
Else
DoCmd.OpenReport stReport, acViewPreview,, stCriteria
End If