Imprimir por fechas
Hola
Disculpa, podrías enviarme una rutina en VB para imprimir un reporte que solo presente los registros con una fecha específica.
Saludos
Roberto
Nota: No quiero utilizar Consultas
Disculpa, podrías enviarme una rutina en VB para imprimir un reporte que solo presente los registros con una fecha específica.
Saludos
Roberto
Nota: No quiero utilizar Consultas
2 Respuestas
Respuesta de query
1
Espero que este procedimiento pueda solucionar tu problema. Para hacerlo funcionar tendrás que indicarle el nombre del report, el intervalo de fechas indicado como FechaInicio y FechaFin y el nombre del campo de tipo fecha en el report que se utilizará para filtrar los registros:
Public Sub InformeEntreFechas(sNombreInforme As String, dFechaI As Date, dFechaF As Date, sCampo As String)
Dim sFiltro As String
sFiltro = "(" & sCampo & " BETWEEN #" & Format(dFechaI, "mm/dd/yy") & "# AND #" & Format(dFechaF, "mm/dd/yy") & "#)"
DoCmd.OpenReport sNombreInforme, acPreview, , sFiltro
End Sub
Public Sub InformeEntreFechas(sNombreInforme As String, dFechaI As Date, dFechaF As Date, sCampo As String)
Dim sFiltro As String
sFiltro = "(" & sCampo & " BETWEEN #" & Format(dFechaI, "mm/dd/yy") & "# AND #" & Format(dFechaF, "mm/dd/yy") & "#)"
DoCmd.OpenReport sNombreInforme, acPreview, , sFiltro
End Sub
Respuesta de javierbf
1
Dim stDocName As String
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
stDocName = "NOMBRE DEL INFORME"
DoCmd.OpenReport stDocName, acNormal, "", "[NOMBRE DE FECHA]=[forms]![NOMBRE DEL FORMULARIO]![NOMBRE DE FECHA]"
DoCmd. Close acReport, "NOMBRE DEL INFORME"
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
stDocName = "NOMBRE DEL INFORME"
DoCmd.OpenReport stDocName, acNormal, "", "[NOMBRE DE FECHA]=[forms]![NOMBRE DEL FORMULARIO]![NOMBRE DE FECHA]"
DoCmd. Close acReport, "NOMBRE DEL INFORME"