Filtros por años en access
Tengo un formulario basado en una tabla donde se registran productos almacenados, empresas a los que pertenecen y la fecha de expedición en formato dd/mm/aaaa.
Tengo dos campos combinados para filtrar los datos, uno por empresas y otro por años. El filtro de empresas funciona bien, seleecciono la empresa en el desplegable y me filtra los productos que esa empresa ha retirado, pero al filtrar los años para saber cuantos se han retirado en el periodo de un año en concreto me da "error 2001 en tiempo de ejecución".
El origen de la fila es "SELECT Year([FRet]) AS Año FROM [MA Registro Residuos] GROUP BY Year([FRet]) ORDER BY Year([FRet]) DESC;" con lo que consigo que el desplegable muestre solamente los años, y al seleccionar el año no me muestra los registros de ese año que es lo que necesito.
El código que tengo es:
Private Sub Cuadro_combinado23_AfterUpdate()
' Buscar el registro que coincida con el control.
Me.FilterOn = False
Me.Filter = "Empresa='" & Me.Cuadro_combinado23 & "'"
Me.FilterOn = True
End Sub
Private Sub Cuadro_combinado23_Click()
Me.Refresh
End Sub
Private Sub Cuadro_combinado35_AfterUpdate()
' Buscar el registro que coincida con el control.
Me.Cuadro_combinado23.Requery
Me.FilterOn = False
Me.Filter = "Fret='" & Me.Cuadro_combinado35 & "'"
Me.FilterOn = True
End Sub
Private Sub Cuadro_combinado35_Click()
Me.Refresh
End Sub
Donde "cuadro_combinado23 es de las empresas que funciona bien y el 35 es el que falla.
Tengo dos campos combinados para filtrar los datos, uno por empresas y otro por años. El filtro de empresas funciona bien, seleecciono la empresa en el desplegable y me filtra los productos que esa empresa ha retirado, pero al filtrar los años para saber cuantos se han retirado en el periodo de un año en concreto me da "error 2001 en tiempo de ejecución".
El origen de la fila es "SELECT Year([FRet]) AS Año FROM [MA Registro Residuos] GROUP BY Year([FRet]) ORDER BY Year([FRet]) DESC;" con lo que consigo que el desplegable muestre solamente los años, y al seleccionar el año no me muestra los registros de ese año que es lo que necesito.
El código que tengo es:
Private Sub Cuadro_combinado23_AfterUpdate()
' Buscar el registro que coincida con el control.
Me.FilterOn = False
Me.Filter = "Empresa='" & Me.Cuadro_combinado23 & "'"
Me.FilterOn = True
End Sub
Private Sub Cuadro_combinado23_Click()
Me.Refresh
End Sub
Private Sub Cuadro_combinado35_AfterUpdate()
' Buscar el registro que coincida con el control.
Me.Cuadro_combinado23.Requery
Me.FilterOn = False
Me.Filter = "Fret='" & Me.Cuadro_combinado35 & "'"
Me.FilterOn = True
End Sub
Private Sub Cuadro_combinado35_Click()
Me.Refresh
End Sub
Donde "cuadro_combinado23 es de las empresas que funciona bien y el 35 es el que falla.
1 Respuesta
Respuesta
1