Access - Duda Informes

 
Vista:

Duda Informes

Publicado por Baru (2 intervenciones) el 19/10/2006 10:36:51
Tengo un problema con formulario e informes, me explico:

Quiero un formulario que me sirva de inicio, donde tengo varios botones para abrir informes, dichos informes se basan en consultas por parámetros y al abrirlos me sale la ventanita de diálogo pidiéndome los parámetros( concretamente dos fechas=).

Pues bien, ahora he introducido en el formulario dos campos para meter dichas fechas ahí y quiero pasar dichos datos como parámetros a la consuta. Si alguien me pudiera ayudar le esaría muy agradecido!!!.

Saludos y gracias de antemano.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Duda Informes

Publicado por fabian (22 intervenciones) el 19/10/2006 17:19:12
al boton buscar ponle este codigo para que te busque entre dos fechas que tu ingresas ojala te sirva
Dim stDocName As String
stDocName = "informe"
If Me!fecha1 <> "" Then ' comprueba fecha de inicio contiene algo
txtFiltro = "[Tabla1]![Fecha] >= #" & Format(Me.fecha1, "mm/dd/yy") & "#"
End If
If Me!fecha2 <> "" Then ' comprueba fecha de fin contiene algo
If txtFiltro = "" Then ' comprueba si ya hay algo en txtfiltro
txtFiltro = "[Tabla1]![Fecha] <= #" & Format(Me.fecha2, "mm/dd/yy") & "#"
Else
txtFiltro = txtFiltro & " and [Tabla1]![Fecha] <= #" & Format(Me.fecha2, "mm/dd/yy") & "#"
End If
End If

DoCmd.OpenReport stDocName, acPreview
Set inf = Reports("informe")
inf.FilterOn = True ' activa el filtro en el informe
inf.Filter = txtFiltro ' pasa los datos por los que filtrar
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar