Action de crystal con VB6

[gusanosxr]

Código PHP:

   
 
Private Sub pu_rep_vs_Click()
If CLASE = "" Then MsgBox "Debe seleccionar la clase de bienes.": CLASE.SetFocus: Exit Sub
 
consulta1
 
For H = 0 To 10: Report1.DataFiles(H) = "": Report1.Formulas(H) = "": Next H
Report1.WindowTitle = "Stock de vehículos"
Report1.ReportFileName = directorio_reportes + "stock_completo.rpt"
Report1.DataFiles(0) = directorio_actual + "vehiculos.mdb "
Report1.Action = 1  //en esta línea me falla
 
End Sub 
   

en la línea que falla dice que hay un error en el metodo action del objeto crystalctrl

qué podría ser????

[lokoman]

Hola!
Puedes verificar si la ruta a la base/reporte está correcta? no le faltan los "\"?

Código vb:

Report1.ReportFileName = directorio_reportes + "\stock_completo.rpt" 
Report1.DataFiles(0) = directorio_actual + "\vehiculos.mdb "