El codigo que tengo me funciona bien pero ahora quiero pasarle un parametro, ya cree otro reporte en crystal report 8 con la variable Fcod de tipo string como parametro.
Como modifico mi codigo para pasarle ese parametro desde un text1, el codigo que utilizo para el reporte sin parametro es este:
Código:
Public Function Imprimir(strsql As String, strpathrep As String) As Boolean
Dim rs As New ADODB.Recordset
On Error GoTo OcurrioError
Set Cryapp = CreateObject("Crystal.CRPE.Application")
Set CryReport = Cryapp.OpenReport(strpathrep)
rs.Open strsql, dbConex, adOpenDynamic, adLockOptimistic
Set reportDb = CryReport.Database
Set reportTables = reportDb.Tables
Set reportTable = reportTables.Item(1)
Call reportTable.SetPrivateData(3, rs)
Set repView = CryReport.Preview
Imprimir = True
Exit Function
OcurrioError:
Imprimir = False
MsgBox "Ocurrio un error: " & Err.Number & " " & Err.Description
End Function