Hola a todos.
Paso a comentar un error que me tira de vez en cuando, pero no siempre
Error:
Error en 'Refresh' en objeto 'ICrystalReportViewer9'
Me marca en la linea que esta en negrita en el codigo siguiente:
Código:
Private Sub InitCrystalReport()
Dim CRReport As CRAXDDRT.Report
Dim CRApp As New CRAXDDRT.Application
Set CRReport = CRApp.OpenReport(App.Path & "\Reportes\prefactura-detalle.rpt")
With CRReport
.DiscardSavedData
.Database.Tables(1).SetDataSource (App.Path & "\BBDD.FBD")
.Database.Tables(1).SetLogOnInfo "NX", "", "SYSDBA", "masterkey"
If mostrar = True Then
.RecordSelectionFormula = " {FAC_DETALLE_CRYSTAL.nfactura} = '" & Trim$(DataCombo.BoundText) & "' "
.FormulaFields(1).Text = "'" & DataCombo.Text & "'"
.FormulaFields(2).Text = "'" & nombre_obra & "'"
cmdRefresh.Enabled = True
mostrar = False
Else
.RecordSelectionFormula = strRecordsFormula
.FormulaFields(1).Text = "'" & DataCombo.Text & "'"
.FormulaFields(2).Text = "'" & obra_social.Text & "'"
End If
End With
With CRView
.ReportSource = CRReport
.Refresh
.ViewReport
.Zoom 100
While .IsBusy
DoEvents
Wend
.Visible = False
.Refresh
End With
Set CRApp = Nothing
Set CRReport = Nothing
End Sub
Private Sub cmdRefresh_Click()
cmdRefresh.Enabled = False
Dim rso As New ADODB.Recordset
strRecordsFormula = vbNullString
If LenB(DataCombo.Text) > 0 Then
ObraF = " {FAC_DETALLE_CRYSTAL.nfactura} = '" & Trim$(DataCombo.BoundText) & "' "
With rso
.Open "SELECT p.prenumero, o.id_obra_social, o.nombre " & _
"FROM prefacturado p INNER JOIN obra_social o ON p.id_obra_social = o.id_obra_social " & _
"WHERE p.prenumero = '" & Trim$(DataCombo.BoundText) & "' ", cnn, 1, 1
obra_social.Text = !nombre
.Close
End With
Else
ObraF = vbNullString
End If
strRecordsFormula = ObraF
InitCrystalReport
cmdRefresh.Enabled = True
End Sub
Como dije, no siempre me tira el error, pero quiero saber pq algunas veces si, y otras no.
Muchas Gracias