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 "