Grupo de opciones

Buenas noches Experto azarleonardo, solicito tu ayuda para resolver un problema con Grupo de Opciones.
Estoy haciendo mis pininos con Access, he hice lo siguiente:
Private Sub Opciones_AfterUpdate()
Dim LaOpcion As Variant
LaOpcion = Opciones
    Select Case LaOpcion
        Case 2
            DoCmd.ApplyFilter "", "[Siglas]='CFE'"
            Me.FilterOn = True
        Case 3
            DoCmd.ApplyFilter "", "[Siglas]='PEP'"
            Me.FilterOn = True
        Case 4
            DoCmd.ApplyFilter "", "[Siglas]='PGPB'"
            Me.FilterOn = True
        Case 5
            DoCmd.ApplyFilter "", "[Siglas]='PR'"
            Me.FilterOn = True
    Case 6
            DoCmd.ApplyFilter "", "[Siglas] <> 'CFE'"    'Como mostrar todas a excepcion de CFE, PEP, PGPB, PR
            Me.FilterOn = True
    Case Else
        Me.FilterOn = False
    End Select
End Sub
No omito decirte que la opción 1 muestra todos los registros.
La opción 6 como lo tengo me muestra todos los registros a excepción de "CFE", lo que requiero que me muestre todos los registros a excepción de las opciones 1, 2, 3, 4 y 5.
¿Es posible hacerlo?
Te agradeceré infinitamente tu ayuda.
Saludos Raul
Respuesta
1
Probá así:
DoCmd. ApplyFilter "", "Siglas <> 'CFE' and Siglas <> 'PEP' and Siglas <> 'PGPB' and Siglas <> 'PR'"
Buenas noches Experto azarleonardo, probé las instrucciones que me enviaste y funciono a la perfección, te agradezco tu ayuda tas desinteresada que prestas a los aprendices de Access.
Saludos desde mexico.
RAUL

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas