RE:Filtros Access2007 con fechas
Hola;
Quiero agradecer a todos Ustedes la ayuda que me han prestado.
A titulo de ejemplo (pues me ha costado (a otros no les costaría mucho, pero a mi si), les dejo una parte del código que he insertado en mi procedimiento.
Select Case Me![FILTREDISCIPLINE]
Case "P", "T", "O"
Criteria = "[PRONOSTIQUEUR] = " & Chr$(34) & Me![FILTREPRONOSTIQUEUR] & Chr$(34)
Criteria = Criteria & " And [PARIS] = " & Chr$(34) & Me![FILTREPARIS] & Chr$(34)
Criteria = Criteria & " And [DISCIPLINE] = " & Chr$(34) & Me![FILTREDISCIPLINE] & Chr$(34)
Criteria = Criteria & " And [DATECOURSE] BETWEEN #" & Format(Me![FILTREDATE], "mm/dd/yy") & "# AND #" & Format(Me![FILTREDATE2], "mm/dd/yy") & "#"
Case "A"
Criteria = "[PRONOSTIQUEUR] = " & Chr$(34) & Me![FILTREPRONOSTIQUEUR] & Chr$(34)
Criteria = Criteria & " And [PARIS] = " & Chr$(34) & Me![FILTREPARIS] & Chr$(34)
Criteria = Criteria & " And ([DISCIPLINE] = " & Chr$(34) & "P" & Chr$(34)
Criteria = Criteria & " Or [DISCIPLINE] = " & Chr$(34) & "T" & Chr$(34) & ")"
Criteria = Criteria & " And [DATECOURSE] BETWEEN #" & Format(Me![FILTREDATE], "mm/dd/yy") & "# AND #" & Format(Me![FILTREDATE2], "mm/dd/yy") & "#"
End Select
'MsgBox Criteria
Me.Filter = Criteria
Me.FilterOn = True
Por el momento me funciona.
Un saludo
José