|
'Create Temp Storage
Dim strSelect As String 'Create Report instance Dim Report As New UIBenSummrpt 'Set Mouse Pointer to busy Screen.MousePointer = vbHourGlass 'Set Crystal Reports smartviewer source to report CRViewer1.ReportSource = Report 'Reset Reports selection criteria Report.RecordSelectionFormula = "" 'Create a string for selection criteria strSelect = "{ado.Client}= '" & strClient & "' _ AND " & "{ado.Year}= '" & strYear & "'" 'Set Report's selection criteria Report.RecordSelectionFormula = strSelect 'Display Report CRViewer1.ViewReport 'Reset the mouse pointer icon Screen.MousePointer = vbDefault |