bera
30 de Julio del 2003

cuando intento visualizar el informe me da el mensaje de error: File not found. La ventana del informe se abre pero no muestra ningun dato.
la consulta funciona bien ya que en el recordset tengo los datos que quiero en el informe. tengo otro informe igual que si que funciona, pero los datos los coge de una consulta sobre una tabla sola. El informe que no funciona los coge de una consulta sobre 2 tablas.

este es el codigo del informe que no funciona(consulta sobre dos tablas):

Dim Reporte As New infFiniquitos
Dim rs As New ADOR.Recordset

Private Sub Form_Load()


rs.Open "SELECT * FROM SINIESTROS_FINIQUITO , SINIESTROS_LINEAS_FINIQUITO WHERE SINIESTROS_FINIQUITO.EXPEDIENTE = " & frmGestionSiniestros.txtExpediente & "", "Gestion"


Reporte.Database.SetDataSource rs
CRViewer1.ReportSource = Reporte
CRViewer1.ViewReport

End Sub

Private Sub Form_Resize()
CRViewer1.Top = 0
CRViewer1.Left = 0
CRViewer1.Height = ScaleHeight
CRViewer1.Width = ScaleWidth
End Sub


Este es el informe que si que funciona (consulta sobre una tabla)

Private Sub Form_Load()
Screen.MousePointer = vbHourglass
RS.Open "SELECT * FROM SINIESTROS_FINIQUITO WHERE EXPEDIENTE=" & frmGestionSiniestros.txtExpediente.Text & " ", "Gestion"

Report.Database.SetDataSource RS
CRViewer1.ReportSource = Report
CRViewer1.ViewReport
Screen.MousePointer = vbDefault
RS.Close
End Sub

angeles
30 de Julio del 2003

Para mí la mejor forma de hacerlo es modificando la consulta SQL, en vez de abrir un recordset. Quedaría:
Dim Reporte As New infFiniquitos
Dim rs As New ADOR.Recordset

Private Sub Form_Load()
Reporte.SQLQueryString="SELECT * FROM SINIESTROS_FINIQUITO , SINIESTROS_LINEAS_FINIQUITO WHERE SINIESTROS_FINIQUITO.EXPEDIENTE =" & frmGestionSiniestros.txtExpediente
CRViewer1.ReportSource = Reporte
CRViewer1.ViewReport

suso
30 de Julio del 2003

Angeles, veo que tienes el Cystal controladisimo, yo ya te hice caso, en el mensaje que me dejaste para ir a la webcrystal. Ya soy capaz de lanzar un report, me faltaba en agregar referencias Crystal Report 8 ActiveX Designer Runtime Library
bien. Ahora necisito pasar la seleccion de Registros que quiero imprimir. No entiendo como se hace. Estamos muy agradecidos por tu sabiduria y por tu desinteresada ayudita....

RHQ
30 de Julio del 2003

Porque al ejecutarlo sale error 91 en la linea de
Report.Database.SetDataSource RS

Por Favor responder

angelescj
30 de Julio del 2003

Se supone que RS es un cadena de caracteres con una clúsula "SELECT" o el nombre de una tabla.
Ese error se produce cuando el objeto no ha sido inicializado, con lo que parece que no has inicializado el report
Dim Report As New CrystalReport1
Report.Database.SetDataSource RS

rhq
30 de Julio del 2003

Por favor me pueden ayudar
quiero activar el botón de cerrar del control crviewer que debo hacer
se los agradesco.

luenib
30 de Julio del 2003

Por programacion puedes hace lo siguiente:

CRViewer1.EnableCloseButton = True

O puedes entrar a las propiedades de del control CRViewer1 y ajustar el valor de EnableCloseButton a True