Problema con filtrado de reporte con fechas
Publicado por Angela Soto (87 intervenciones) el 08/03/2007 15:33:50
Hola a todos:
Tengo un pequeño formulario con el cual selecciono unas fechas para filtrar un informe. El problema es que no me esta filtrando nada y siempre me saca que no hay fechas para rango seleccionado y en realidad las hay. He revisado mi codigo y no encuentro nada, hago el seguimiento por instrucciones y se vé cuando se pasa de un if inmediatamente al else. El campo por el que estoy filtrando es un campo tipo texto ya que con ella estoy calculando unas fechas y por eso las tengo asi:
Private Sub cmdInforme_Click()
Dim strWHERE As String
strWHERE = "[FechaActual] BETWEEN #" & Format(Me.txtFechaComienzo, "dd/mm/yy") & "# AND #" & Format(Me.txtfechafin, "dd/mm/yy") & "#"
If DCount("FechaActual", "CASO", strWHERE) Then
DoCmd.OpenReport "Reporte_ por_ Fechas", acViewPreview, , strWHERE
Else
MsgBox "No hay datos para el periodo " & vbCrLf & vbCrLf & Space(7) & Me.txtFechaComienzo & " - " & Me.txtfechafin & vbCrLf & vbCrLf & "Por favor verifica las fechas", vbInformation + vbOKOnly, "Sin Datos"
End If
End Sub
Como podré solucionar este problemilla??? Muchas Gracias de antemano.
Tengo un pequeño formulario con el cual selecciono unas fechas para filtrar un informe. El problema es que no me esta filtrando nada y siempre me saca que no hay fechas para rango seleccionado y en realidad las hay. He revisado mi codigo y no encuentro nada, hago el seguimiento por instrucciones y se vé cuando se pasa de un if inmediatamente al else. El campo por el que estoy filtrando es un campo tipo texto ya que con ella estoy calculando unas fechas y por eso las tengo asi:
Private Sub cmdInforme_Click()
Dim strWHERE As String
strWHERE = "[FechaActual] BETWEEN #" & Format(Me.txtFechaComienzo, "dd/mm/yy") & "# AND #" & Format(Me.txtfechafin, "dd/mm/yy") & "#"
If DCount("FechaActual", "CASO", strWHERE) Then
DoCmd.OpenReport "Reporte_ por_ Fechas", acViewPreview, , strWHERE
Else
MsgBox "No hay datos para el periodo " & vbCrLf & vbCrLf & Space(7) & Me.txtFechaComienzo & " - " & Me.txtfechafin & vbCrLf & vbCrLf & "Por favor verifica las fechas", vbInformation + vbOKOnly, "Sin Datos"
End If
End Sub
Como podré solucionar este problemilla??? Muchas Gracias de antemano.
Valora esta pregunta


0