Filtrar Subformulario entre dos fechas
Publicado por Pablo (13 intervenciones) el 03/04/2017 12:11:48
Buenos días,
Estoy creando un formulario con varios campos que filtran un subformulario pero me esta dando errores cuando quiero filtrar entre dos fechas
Esta imagen muestra los campos por los que quiero filtrar
Y este es mi código al clickear el botón aplicar filtros
Al pulsar el botón solo me aplica los filtros de "Nombre" si alguien me puede ayudar
Muchas Gracias
Saludos.
Estoy creando un formulario con varios campos que filtran un subformulario pero me esta dando errores cuando quiero filtrar entre dos fechas
Esta imagen muestra los campos por los que quiero filtrar
Y este es mi código al clickear el botón aplicar filtros
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Sub Aplicar_Filtros_Click()
' Creamos la variable que contendrá el filtro
Dim sFiltro As String
' Asignamos el filtro a la variable
If Me.DESPLEGABLE_SEGUIDOR = "TODAS" Then
sFiltro = "DENOMINACION <> 'XXXXxxx'"
End If
If Me.DESPLEGABLE_SEGUIDOR <> "TODAS" Then
sFiltro = "[SOLICITADO POR] = '" & Me.DESPLEGABLE_SEGUIDOR & "'"
End If
' Filtro fecha
sFiltro = sFiltro & " And [FECHA SOLICITUD MATERIAL] BETWEEN #" & Format(Nz(Me.FECHA1, #1/1/1900#), "dd-mm-yyyy") & "# AND #" & Format(Nz(Me.FECHA2, #12/31/9999#), "dd-mm-yyyy") & "#"
' Asignamos la varaible a la propiedad Filter del subformulario
Me.TABLA.Form.Filter = sFiltro
' Le decimos al subformulario que active el filtro que previamente hemos asignado.
Me.TABLA.Form.FilterOn = True
End Sub
Al pulsar el botón solo me aplica los filtros de "Nombre" si alguien me puede ayudar
Muchas Gracias
Saludos.
Valora esta pregunta
0