Filtrar datos de un subformulario desde un cuadro de opciones

Jorge: Otra alternativa a la que correctamente te ofrece Icue es el Uso de Aplicar Filtros al SubFormulario >> NEC También en el AfterUpdate del Grupo de Opciones.

Private Sub Opción_AfterUpdate()
Dim FiltroCeroNulo As String, FiltroOtros As String,FiltroElegido As String
FiltroCeroNuo = "Movimiento = 0 Or Movimiento Is Null"
FiltroOtros = "Movimiento > 0"
Select Case Me.Opción.Value
    Case 1
        FiltroElegido = FiltroCeroNulo
    Case 2
        FiltroElegido = FiltroOtros
    Case Else
        MsgBox "Algo raro está ocurriendo, no has marcado opción",vbCritical,"OPCION SIN MARCAR"
End Select
Me.NEC.Form.Filter = FiltroElegido
Me.NEC.Form.FilterOn = True
End Sub

Aunque he ido escribiendo sobre la marcha creo que no tendrás dificultades y si fuera así me comentas. Un saludo >> Jacinto

Jacinto: Te escribo nuevamente por que me parece que mi respuesta no quedo registrada.

Te cuento que:

La opción 1 ( 0 y  Nulo) me muestra todo. Incluyendo >0

La opción 2 ( >0) me da correcto.

Le cambie el nombre del campo por que estaba mal y quedo asi:

Private Sub Opcion_AfterUpdate()

Dim FiltroCeroNulo As String, FiltroOtros As String, FiltroElegido As String

FiltroCeroNuo = "RQ = 0 Or RQ Is Null"
FiltroOtros = "RQ > 0"

Select Case Me.Opcion.Value
Case 1
FiltroElegido = FiltroCeroNulo
Case 2
FiltroElegido = FiltroOtros
Case Else
MsgBox "Algo raro está ocurriendo, no has marcado opción", vbCritical, "OPCION SIN MARCAR"

End Select

Me.NEC.Form.Filter = FiltroElegido
Me.NEC.Form.FilterOn = True

End Sub

Por otra parte quería consultarte: Si le agrego una opción (3) para que me muestre todo: ¿Como seria?

Como siempre Muchísimas Gracias!!!

Jorge: Antes de hacer una prueba, porque esta noche ya estarde, mira de que la línea >>

FiltroCeroNuo = "RQ = 0 Or RQ Is Null"  realmente sea un error al copiar, porque el Filtro >>

FiltroCeroNuo, no está declarado y abajo realmente le dices que aplique el FiltroCeroNulo, que lógicamente esrará vacío. La mecánica de poner un Grupo de opciones de 3 o 4 o n alternativas, es la misma que la de Aplicar 2, solo que irás aumentando los filtros y los Case x

Si tienes dificultades me comentas. Un saludo >> Jacinto.

Jacinto: Muchas gracias.

Si. Era un error de tipeo. Ahora funciona bien.

Con respecto al 3er caso: Debería declarar otra variable (FiltroNuevo) en la línea Dim y luego agregar:

FiltroNuevo = "RQ =???"

Case 3 

FiltroElegido = FiltroNuevo

¿Qué valor le debo poner para que me muestre todo?

Como siempre Gracias.

Jorge

Jorge: Si la Opción 3 que vas a añadir es para que te muestre todos los registros, en mi opinión si que cabe una instrucción del estilo que te cita Icue, es decir y tomando tu Código

Private Sub Opcion_AfterUpdate()
Dim FiltroCeroNulo As String, FiltroOtros As String, FiltroElegido As String
FiltroCeroNulo = "RQ = 0 Or RQ Is Null"
FiltroOtros = "RQ > 0"
Select Case Me.Opcion.Value
    Case 1
        FiltroElegido = FiltroCeroNulo
    Case 2
        FiltroElegido = FiltroOtros
    Case 3
        Me.NEC.Form.RecordSource = "SELECT * FROM [TablaOConsultaOrigen];"
        Exit Sub
    Case Else
        MsgBox "Algo raro está ocurriendo, no has marcado opción", vbCritical, "OPCION SIN MARCAR"
End Select
Me.NEC.Form.Filter = FiltroElegido
Me.NEC.Form.FilterOn = True
End Sub

Otra solución usando un >> FiltroTodos declarado en las variables como String y suponiendo que los valores de RQ los conoces y no te van a llegar al de 10000000 (Diez Millones), es que después del FiltroOtros pongas:

FiltroTodos = "RQ < 10000000"

De éste modo, después de Case 3 en lugar del Me.NEC....

FiltroElegido = FiltroTodos

Te comento ésto, porque a mi modo de ver, en éstos casos imagino que algún gran analista, sabria decir cual solución es la técnicamente óptima. En mi caso me conformo con sugerir aquella con la que un usuario se encuentre más cómodo. Un saludo >> Jacinto