Visual Basic - Error 13, no coinciden los tipos.

disculpen tengo un problemillo, uso vb 6 y cr 4.6, y al ejecutar estos códigos me da el "error 13 no coinciden los tipos", en la línea .reportsource=rlistado.

ahora si la anulo esta línea, porque me parece que está mal (opinion muy personal) me da el "error 20536 en tiempo de ejecución, imposible de conectar registro de parámetros incorrectos" en la línea .action=0. si alguien me da una manito por favor os agradecería mucho, por su amable ayuda.

If DataCombo1 <> "" Then
Set reporte = Nothing
strFormula = "({datosgen.curso}='" & ensayo.DataCombo1.Text & " ')"
strlistado = "Listado Generales de Alumnos"
rlistado = "c:\encanto\rpt\datosgen1.rpt"
With MDIprobando.reporte
.ReportFileName = rlistado
.SelectionFormula = strFormula
.DataFiles(0) = "C:\encanto\integrl97.mdb"
.WindowTitle = "listado por curso"
.Destination = crptToPrinter
.Connect = cnn
.ReportSource = rlistado
.Action = 0
End With
Set reporte = Nothing
Else
MsgBox "Por favor elija un curso para imprimir", vbOKOnly
End If
End Sub

**
por favor abstenerse de responder quienes no dan respuestas serias y de ayuda. muchas gracias.

No será

..........
rlistado = "c:\encanto\rpt\datosgen1.rpt"
...............
.............
.........
.ReportFileName = rlistado
...........
..........


---------------------------------------
www.khristian-rodriguez.tk

pues gracias por comentar pero no entiendo la sugerencia, lo que has puesto es lo que tengo puesto yo en mis códigos, podrías explicarme un poco mejor? disculpa mi falta de iluminación y gracias de nuevo.

Luís Mercado

NO VEO QUE SEA LO MISMO

TU -->

.ReportSource = rlistado

YO -->

.ReportFileName = rlistado

Que bruto soy, mil gracias por tu ayuda y aclaración, pues mira ahora he cambiado casi todo en busca de una solución.

y tengo esta codificación (la de abajo) que no me da error, pero tampoco hace nada ni imprime nada, en fin cuando sale un mensaje de error uno tiene una pista pero ahora la cosa se me pone más negra al no saber de donde está mal.

intenté con mis códigos anterior a cambiar la opción reportsource por reportfilename, pero igual no funciona.

Private Sub Form_Load()
cnn.Provider = "Microsoft.Jet.OLEDB.4.0"
cnn.ConnectionString = "C:\encanto\integrl.mdb"
cnn.Open
End Sub
Private Sub imprimir_Click()
If DataCombo1 <> "" Then
Set reporte = Nothing
strformula = "({Datosgen.curso}=' " & ensayo.DataCombo1.Text & " ')"
With MDIprobando.reporte

.SelectionFormula = strformula
.Connect = cnn
.DataFiles(0) = "c:\encanto\integrl.mdb"
.ReportFileName = "c:\encanto\rpt\datosgen1.rpt"
.WindowState = crptMaximized
.WindowTitle = "listado simple"
.RetrieveDataFiles
.Destination = crptToPrinter
.PrintReport
'.Action = 0
End With
Else
MsgBox "Por favor elija un curso para imprimir", vbOKOnly
End If
End Sub

gracias por tu paciencia y ayuda, saludos

Hola a todos!!!!
lo que pasa es que estoy haciendo un paqueño programa con vb
y este me repota un error en la siguiente linea de codigo:

.Documents.Open Filename:=Cells((contador), 8), ReadOnly:=True

conador es una variable de tipo integer ,inicialixzada en un for ..next
ayudenme porfis es urgente...

....a el error es el error 13:no coincidfen los tipos
gracias.... gracias :)

Puedes ver esta página http://www.vbscripttips.com/id?76576556

hay que cambiar la prioridad de las referencias.

menu >proyecto >referencias

seleccionas "Microsoft DAO 3.6 Object Library" o "Microsoft DAO 3.51 Object Library" segun el que tengas referenciado para tu base de datos y lo subes de prioridad con las flechas hasta despues de OLE Automation y asi se deve de solucionar el problema