Dim intDate As Integer Dim strReportName As String Dim crxApplication As New CRAXDRT.Application Dim Report As CRAXDRT.Report 'On Error GoTo ErrHandler Me.MousePointer = vbHourglass intDate = Weekday(Now) strReportName = mstrReportFolder & "\Claims\ClaimProductionByProcessorByDateByType.rpt" Set Report = crxApplication.OpenReport(strReportName) Report.Database.LogOnServer "pdsodbc.dll", "*******", "Claims", mstrUID, mstrPWD Report.RecordSelectionFormula = mstrSQL Report.ExportOptions.DestinationType = crEDTDiskFile Report.ExportOptions.FormatType = crEFTHTML40 Report.ExportOptions.HTMLFileName = mstrWorkingDirectory & "\ClaimProductionByProcessorByDateByType.html" Report.DiscardSavedData Report.ParameterFields(1).AddCurrentValue (mdtmReportDate) Report.EnableParameterPrompting = False Report.Export False Set crxApplication = Nothing Set Report = Nothing Me.MousePointer = vbDefault
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)