error al lanzar infomre crystal report desdevisual
Publicado por bgc (5 intervenciones) el 01/08/2006 09:55:09
If vbYes = MsgBox("¿Desea ver el informe?", vbQuestion + vbYesNoCancel, "Informe") Then
With objrpt
' .Formulas(0) = "FechaDsd='" & txtFechaDsd.ClipText & "'"
' .Formulas(1) = "FechaHasta='" & txtFechaHasta.ClipText & "'"
.WindowTitle = "Listado de Alumnos" 'seguiria con los campos q emos utilizado para filtrar
.Destination = crptToWindow
.WindowState = crptMaximized
.DiscardSavedData = True
.WindowControlBox = True
.Connect = ObtenerConexionInforme
.SQLQuery = strSQL
.ReportFileName = App.Path & "\INFORMES\ListadoAlu.rpt"
.Action = 1
.Reset
End With
End If
El error me lo da en el .Action q me sale un error de dll¿?
Alguine sabe q puede ocurrir????
Gracias
With objrpt
' .Formulas(0) = "FechaDsd='" & txtFechaDsd.ClipText & "'"
' .Formulas(1) = "FechaHasta='" & txtFechaHasta.ClipText & "'"
.WindowTitle = "Listado de Alumnos" 'seguiria con los campos q emos utilizado para filtrar
.Destination = crptToWindow
.WindowState = crptMaximized
.DiscardSavedData = True
.WindowControlBox = True
.Connect = ObtenerConexionInforme
.SQLQuery = strSQL
.ReportFileName = App.Path & "\INFORMES\ListadoAlu.rpt"
.Action = 1
.Reset
End With
End If
El error me lo da en el .Action q me sale un error de dll¿?
Alguine sabe q puede ocurrir????
Gracias
Valora esta pregunta


0