Access - A vueltas con los filtros por cuadro combinado

   
Vista:

A vueltas con los filtros por cuadro combinado

Publicado por Jesús t122490@telefonica.com (1 intervención) el 05/06/2013 14:43:15
Hola amigos

He buscado en el foro sobre el asunto y he encontrado varias respuestas. También he utilizado los códigos que habéis puesto por aquí pero no consigo que me funcione.

Ya podréis imaginar el problema:

Utilizo Access 2010. He creado un formulario en blanco donde he colocado un combo box y un subformulario

El origen de los datos del combo es el campo ENTRADA de la tabla Resueltas

El contenido del subformulario son todos los registros de la tabla Resueltas

Quiero que al seleccionar una determinada fecha en el combo box aparezcan en el subformulario sólo los registros cuyo campo ENTRADA sea coincidente al valor del combo box.

Pongo este código:

Private Sub Cuadro_combinado0_AfterUpdate()

Me.Refresh
Secundario12.SetFocus
Me.Filter = "ENTRADA = '" & Cuadro_combinado0.Value & "'"
Me.FilterOn = True
Me.Refresh

End Sub

Y "ni flowers"... El combo se refresca con el valor que he seleccionado, el subofmulario recibe el foco pero no se aplica el filtro y tampoco da un mensaje de error

¿Alguien sabe por qué?

Muchísimas gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

A vueltas con los filtros por cuadro combinado

Publicado por deneg_nhj (349 intervenciones) el 05/06/2013 19:13:27
Mira aquí www.sgh.com.mx/blog, el tema "Filtros sencillo con VBA" y también el tema que se llama "Filtros y reportes", en ellos se abordan temas de filtrados y luego utilizar el filtro en un reporte.


Espero que te ayude

Saludos!

deneg_nhj
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Norberto

A vueltas con los filtros por cuadro combinado

Publicado por Norberto (432 intervenciones) el 06/06/2013 14:43:50
Hola.

No me extraña que ni flowers. Estás estableciendo el filtro para el formulario y los datos están en el sub. Prueba esto:

1
2
3
4
5
6
7
8
9
Private Sub Cuadro_combinado0_AfterUpdate()
 
    Me.Refresh 'No sé para qué. Prueba a quitarlo.
    Me.Secundario12.SetFocus
    Me.Secundario12.Form.Filter = "ENTRADA = '" & Cuadro_combinado0.Value & "'"
    Me.Secundario12.Form.FilterOn = True
    Me.Refresh 'Sigo sin saber para qué.
 
End Sub


De todas formas yo lo intentaría vinculando el subformulario con el combo:

Vincular campos secundarios: ENTRADA
Vincular campos principales: Cuadro_combinado0

Y no le pongas nada de código. A ver si te funciona.

Un saludo.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar