Access - Botón Alternar que filtre en subformulario

Estimados amigos;
Soy usuario básico de Access.
Mi problema es que tengo un formulario con un subformulario y varios botones alternar (éstos botones dentro de un marco). El problema es que no se como indicarle a cada botón que cuando se presione, filtre la información presentada en el subformulario. Espero que alguien pueda ayudarme. Hace ya varios días que trato de solucionarlo. Desde ya agradecido.

Hola!

Te voy a poner un ejemplo de funcionamiento de un botón: supongamos que:
- El subformulario se llama subFrmDatos
- El campo del subformulario que quieres filtrar se llama [Sexo], y que admite los valores "M" y "F"
- El botón de alternar se llama altFiltro (Propiedades del botón -> Pestaña Otras -> Nombre).

Entonces, en el evento "Al hacer clic" de ese botón de alternar escribiríamos este código:

...
Private Sub altFiltro_Click()
'Declaramos las variables
Dim miFiltro As String
'Construimos el filtro
miFiltro = "[Sexo]='M'"
'Si el botón está activado (está presionado)...
If Me.altFiltro.Value = True Then
With Me.subFrmDatos.Form
'Aplico el filtro
.Filter = miFiltro
'Ejecuto el filtro
.FilterOn = True
End With
'Si el botón no está activado (no está presionado)...
Else
'Quito los filtros
Me.subFrmDatos.Form.FilterOn = False
End If
End Sub
...

Con lo anterior, al presionar el botón, te filtraría en el subformulario aquellos valores cuyo sexo fuera "M"

Ten en cuenta que en el filtro yo he escrito:

miFiltro = "[Sexo]='M'"

y he puesto la "M" entre comillas simples, porque el campo [Sexo] he supuesto que era tipo texto. Si el campo fuera numérico (por ejemplo, 1-M), el filtro lo deberías construir sin comillas simples, así:

miFiltro = "[Sexo]=1"

Saludos,


http://neckkito.siliconproject.com.ar

Neckkito;

Agradecido por tu pronta ayuda.
Lo implementaré y te comentaré.

Muchas gracias...

Hernán

Neckkito;

No me funciona el código.
Es probable que yo esté haciendo algo mal, pero lo he intentado siguiendo tus instrucciones. No se como subir el access de muestra.

S O S S O S S O S

gracias

Hernán

neckkito(ARROBA)myopera(PUNTO)com