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????