Start New Discussion within our Software Development Community

Hi Everyone, i have created a form and placed my CRLViewer control on it, and not a new form. Everytime a search button is pressed the report open. However, i only managing to open the report once in one session. When i click the search button 2nd time i get the parameters window and i get an error on the following line of code:

CRLViewer1.ReportSource = crlrep            'where crlrep is CRAXDRT.report

The bollow is my full code for the search button:

Private Sub cmdDepartmentSearch_Click()
Dim tbl As CRAXDRT.DatabaseTable
Dim sserver As String
Dim sDatabase As String
Dim SDBusername As String
Dim sDBPassword As String
Dim FromDate, ToDate As String
cd = (format(DTPicker4.value, "yyyyMMdd"))
cd1 = (format(DTPicker5.value, "yyyyMMdd"))
'Specify Report location and report itself
Set crlrep = crlApp.OpenReport("\\MCLERPSTORE\A4w\CustomReports\Procurement\Department Reports.rpt")

'specify connection string
crlrep.Database.LogOnServer "crdb_odbc.dll", "MCLERPSTORE32", "MCLDAT", "sa", "p@ssword123"
crlrep.Database.Tables.Item(1).ConnectionProperties.Item("password") = "p@ssword123" 'logon to tables

'clear any data to refresh the report
crlrep.DiscardSavedData

'specify parameters
crlrep.ParameterFields.GetItemByName("Fromdep").AddCurrentValue txtDept.Text
crlrep.ParameterFields.GetItemByName("ToDep").AddCurrentValue txtToDpt.Text
'crlrep.ParameterFields.GetItemByName("FromDate").AddCurrentValue cd
'crlrep.ParameterFields.GetItemByName("ToDate").AddCurrentValue cd1
'open the report
CRLViewer1.Refresh
CRLViewer1.ReportSource = crlrep
'crlrep.PrintOut False
CRLViewer1.ViewReport
CRLViewer1.Visible = True
End Sub

How can i fix this error

This article has been dead for over six months. Start a new discussion instead.