noister
Jul 17th, 2008, 03:01 AM
hi to all,
cr 11, vb6
i got an error [20728: F] with the following code:'MsgBox strQry
''VIEW/GENERATE CRYSTAL REPORT
With cr
.Connect = " DSN=" & sql_odbc & "; " & _
" uid=" & sql_user & "; " & _
" pwd=" & sql_pass & "; " & _
" database=" & sql_db & "; "
.ReportTitle = "noisterCall 1.0 - Report"
.WindowTitle = "noisterCall 1.0 - Report"
'restriction
If strUserType = 5 Then .WindowShowExportBtn = False: .WindowShowPrintBtn = False
.SQLQuery = strQry
.Destination = crptToWindow
'show
.ReportFileName = App.Path & "\" & strReportFile
'MsgBox App.Path & "\" & strReportFile
'.ReportSource = crptDataControl
'.Action = 1
.PrintReport
MsgBox .LastErrorNumber & ": " & .LastErrorString, vbCritical, "noisterCall"
'MsgBox App.Path & "\" & strReportFile
End Withpls help it's urgent... any help really appreciated.
cr 11, vb6
i got an error [20728: F] with the following code:'MsgBox strQry
''VIEW/GENERATE CRYSTAL REPORT
With cr
.Connect = " DSN=" & sql_odbc & "; " & _
" uid=" & sql_user & "; " & _
" pwd=" & sql_pass & "; " & _
" database=" & sql_db & "; "
.ReportTitle = "noisterCall 1.0 - Report"
.WindowTitle = "noisterCall 1.0 - Report"
'restriction
If strUserType = 5 Then .WindowShowExportBtn = False: .WindowShowPrintBtn = False
.SQLQuery = strQry
.Destination = crptToWindow
'show
.ReportFileName = App.Path & "\" & strReportFile
'MsgBox App.Path & "\" & strReportFile
'.ReportSource = crptDataControl
'.Action = 1
.PrintReport
MsgBox .LastErrorNumber & ": " & .LastErrorString, vbCritical, "noisterCall"
'MsgBox App.Path & "\" & strReportFile
End Withpls help it's urgent... any help really appreciated.