Crystal Report - Error CR 11 con VB6

   
Vista:

Error CR 11 con VB6

Publicado por tzalejo (4 intervenciones) el 28/08/2009 01:16:36
hola a todos...quisiera saber si ustedes pueden ver el error que me sale...yo no logro encontrarlo...El error me dice que "No implementado" pero antes pareciera querer abrir la bd c abre y c cierra varias veces y recien me dice el error...

Esto tengo en mi formulario cuando lo llamo...

On Error GoTo Fallo
Dim Crystal As New CRAXDRT.Application
Dim CrxReport As CRAXDRT.Report
strReport = App.Path & "EstadisticaCurso.rpt"

'apertura del informe
Set CrxReport = Crystal.OpenReport(strReport)
Dim CrxDatabaseTable As CRAXDRT.DatabaseTable
Dim RutaDatos As String
RutaDatos = App.Path & "cec.mdb"

For Each CrxDatabaseTable In CrxReport.Database.Tables
CrxDatabaseTable.Location = RutaDatos
Next

strSql = "{Comisiones.Cod_Curso} = " & Curso
CrxReport.RecordSelectionFormula = strSql
CRViewerCurso.ReportSource = CrxReport
CRViewerCurso.ViewReport

While CRViewerCurso.IsBusy
DoEvents
Wend

CRViewerCurso.Zoom 75
On Error GoTo 0
Exit Sub
Fallo:
MsgBox Err.Number

tbm agrego mi reporte...

en la bd tengo estas dos tablas
Cursos(Cod_Curso,NombreCurso,#Cuota,CostoMes,Inscripcion)
Comisiones(Cod_Comision,NombreCom,Horario,FechaInicio,FechaFinal,Cod_Curso)

PD:utilizo access y Crystal Report 11
muchas gracias......
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder