hola alguien podria orientarme un poco? necesito ejecutar un reporte hecho en crystal 11 y no he podido en la version 8 utilizo este codigo y me funciona:
Private Sub mnuduplicado_Click()
Dim condi As String
condi = InputBox("Ingrese el Numero de Factura", "Duplicado de Factura")
If condi <> "" Then
Dim rsf As New ADODB.Recordset
rsf.Open "select * from consultafactura where FacturaNro = '" & condi & "'", CN
If rsf.EOF = False Then
Cr.Connect = ";PWD=xxxxx"
Cr.ReportFileName = App.Path & "ReportsReportFactura_3.rpt"
Cr.SelectionFormula = "{ConsultaFactura.FacturaNro} = '" & condi & "'"
Cr.DataFiles(0) = App.Path & "Db.MDB"
Cr.Destination = crptToWindow
Cr.WindowState = crptMaximized
Cr.Action = 1
Else
MsgBox "El numero de Factura [ " & (condi) & " ] no existe" & " " & " o aún no tiene datos" & vbCrLf & " por favor ingrese otro número", vbInformation
End If
Else
MsgBox "Debe Ingresar Nro. de Factura"
End If
End Sub
