Utilizamos cookies propias y de terceros para mejorar la experiencia de navegación, y ofrecer contenidos y publicidad de interés. Al continuar con la navegación entendemos que se acepta nuestra política de cookies.
Hola Pablo, te pongo un ejemplillo a ver si te vale con eso.
' Primero guardas en una variable la parte de la condición de la select. Los nombres de los campos de las tablas deben ir entre llaves: strCadena = "({Tabla.Campo} >= ' " & variable & ' "
'Guardas esta cadena en la propiedad 'selectionformula' del objeto crystal de tu formulario ObjetoCrystal.SelectionFormula = strCadena
'Indicas la base de datos: ObjetoCrystal.Connect "DSN=nombre;UID=usuario;PWD=contraseña;"
' Maximiza la ventana del informe ObjetoCrystal.WindowState = crptMaximized
' Indicas si quieres el informe en pantalla(crptToWindow) o por impresora (crptToPrinter) ObjetoCrystal.Destination = crptToWindow
' Indicas el título del informe ObjetoCrystal.ReportTitle = "Titulo"
' Indicas el fichero a mostrar ObjetoCrystal.ReportFileName = "Ruta fichero"