Public Function OpenReport(ReportName As String, Optional Criteria As String) As Boolean
On Error GoTo ErrHandler
Dim ReportMode As Integer
'<Prompt>
If MsgBox("Would you like to preview this report?", vbYesNo) = vbYes Then ReportMode = acViewPreview Else ReportMode = acNormal
'</Prompt>
'<DoReport>
If Criteria = "" Then
DoCmd.OpenReport ReportName, ReportMode
Else
DoCmd.OpenReport ReportName, ReportMode, , Criteria
End If
OpenReport = True
'</DoReport>
Exit Function
ErrHandler:
'<ErrorHandler>
DoCmd.Echo True, "Unable to run report"
OpenReport = False
'</ErrorHandler>
End Function