Private Sub Cmd9_Click()
'On Error GoTo Error_Handler
Dim Report As New Blank_rShopDrawing
4 Set Report = New Blank_rShopDrawing
Report.RecordSelectionFormula = "false"
Form1.CRViewer1.ReportSource = Report
Form1.CRViewer1.ViewReport
Form1.Show 1
Exit_Error_Handler:
Set rs = Nothing
Exit Sub
Error_Handler:
MsgBox Err.Number & " : " & Err.Description
Resume Exit_Error_Handler
End Sub
the error in line 6
anyhelp please
HibaPro -3 Junior Poster
debasisdas 580 Posting Genius Featured Poster
HibaPro -3 Junior Poster
AndreRet 526 Senior Poster
AndreRet 526 Senior Poster
Be a part of the DaniWeb community
We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.