Datareport object

[madgoose]

If chkExport.Value = 1 Then
        ExportToExcel rsRecordSet
    ElseIf RptName2.Text = "Installation List" Then
       dr1.DataMember = rsRecordSet.DataMember
       dr1.Show
    ElseIf RptName2.Text = "Sales List" Then
       dr2.DataMember = rsRecordSet.DataMember
       dr2.Show
    End If

is there a way to create a datareport object like so?
Dim rtp as new datareport
set rpt = dr1

when doing this i cannot show the report. i must use dr1.show. dr1 is a datareport.

[leinad31]

Yes you can, but you have to set the DataSource property first

rpt.Show vbModal


Check out these related threads
http://www.vbforums.com/showthread.p...ht=data+report
http://www.vbforums.com/showthread.php?t=433765

[madgoose]

rpt.show vbmodal give an error. data member not found.

Select Case rptName
        Case "Installation List"
            sql = "Select [Job Number], [Booked Date], [Product Code] , [Capacity], [Value], [Job Name] , [Jobsite City] , [Jobsite State] , [Representative] , [Engineer Firm Name]  from [Installation List] Where " & scode      'combinded sql statement
            If chkSort(0).Value = 1 Then sql = sql & "Order by [" & cboField(3).Text & "]"
            rsRecordSet.Open sql, Cn, adOpenStatic, adLockOptimistic
            If rsRecordSet.EOF = True Then GoTo exit_routine
            'Set dr1.DataSource = rsRecordSet
            Set rpt.DataSource = rsRecordSet
        Case "Sales List"
            sql = "Select [Job Number],  [Product Code] , [Capacity], [Job Name] , [Jobsite City] , [Jobsite State] ,[End User Name], [End User Phone]  from [Installation List] Where " & scode      'combinded sql statement
            If chkSort(0).Value = 1 Then sql = sql & "Order by [" & cboField(3).Text & "]"
            rsRecordSet.Open sql, Cn, adOpenStatic, adLockOptimistic
            If rsRecordSet.EOF = True Then GoTo exit_routine
            'Set dr2.DataSource = rsRecordSet
            Set rpt.DataSource = rsRecordSet
    End Select
    
   If chkExport.Value = 1 Then
        ExportToExcel rsRecordSet
    ElseIf rptName = "Installation List" Then
       rpt.DataMember = rsRecordSet.DataMember
       rpt.Show vbModal               *******************error here*********
'    ElseIf rptName = "Sales List" Then
'       dr2.DataMember = rsRecordSet.DataMember
'       dr2.Show
    End If

[madgoose]

i should have said that i have more than 1 datareport and i'm trying to simplify my code.

[leinad31]

Did you set rpt to reference an existing report before setting the datasource and other code? Your original post made me assume you already did

Dim rtp as new datareport
set rpt = dr1

[Hack]

Moved to reporting section