DaniWeb Forum Index > Software Development > Visual Basic 4 / 5 / 6

Visual Basic 4 / 5 / 6 RSS

Crystal Reports XI in VB6 run-time error 91

Please support our Visual Basic 4 / 5 / 6 advertiser: Programming Forums - DaniWeb Sister Site

•

Join Date: Jan 2009

Posts: 1

Reputation: vb6sux is an unknown quantity at this point

Solved Threads: 0

vb6sux

Offline

Newbie Poster

Crystal Reports XI in VB6 run-time error 91

Jan 19th, 2009

I have the code

 Help with Code Tags 
 vb Syntax (Toggle Plain Text) 
Dim cApp As CRAXDDRT.Application
Public cReport As CRAXDDRT.Report
Public CurrentTemplate As String
Dim ErrorMsg As String
'Dim ReportLayOut() As RptLayOut
Dim ErrorNo As Long
Dim ErrorModule As String
 
 
Private Sub Form_Load()
 
On Error GoTo PrintReportErr
 
With frmFolderDisplay
    .txtPath = GetSingleLUMSTREntry("OMU", "CRIT MATL 
                                 REPORTS", "PATH", "")
    .SetFilePath
    .Show vbModal
End With
 
Set cReport = cApp.OpenReport(CurrentTemplate)
Dim cApp As CRAXDDRT.Application
Public cReport As CRAXDDRT.Report
Public CurrentTemplate As String
Dim ErrorMsg As String
'Dim ReportLayOut() As RptLayOut
Dim ErrorNo As Long
Dim ErrorModule As String


Private Sub Form_Load()

On Error GoTo PrintReportErr

With frmFolderDisplay
    .txtPath = GetSingleLUMSTREntry("OMU", "CRIT MATL 
                                 REPORTS", "PATH", "")
    .SetFilePath
    .Show vbModal
End With

Set cReport = cApp.OpenReport(CurrentTemplate)

When I get to the set cReport line, I get teh run-time error 91, object variable or With block variable not set.

Any ideas? This is driving me batty.

Last edited by Narue; Jan 19th, 2009 at 3:24 pm. Reason: added code tags