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
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 de azarleonardo
1