Javier: Partiendo de la consulta que ya tienes, puedes añadirle dos Campos>>
Parto de que esa consulta es el Origen de Datos del Formulario
AñoFra:Año([InvoiceData])
MesFra:Mes([InvoiceData])
Supongo que tienes un Formulario en el que puedes añadir 2 Controles de Texto que llamaremos >> TxtAñoFra y TxtMesFra.
Para filtrar por esos datos Pones un bo´tón que llamo BtnFrasFechas
Generas el evento Click de ese botón.
Private Sub BtnFrasFechas_Click()
Dim FiltroAño As String, FiltroMes As String, FiltroTotal As String
FiltroAño = "AñoFra = " & Me.TxtAñoFra
FiltroMes = "MesFra = " & Me.TxtMesFra
FiltroTotal = FiltroAño & · AND " FiltroMes
Me.Filter = FiltroTotal
Me.FilterOn = True
End Sub
Para quitar el Filtro, puedes hacerlo en otro botón que sea BtnQuitaFiltro
Private Sub BtnQuitaFiltro:Click()
Me.FilterOn = False
Me.Requery
End Sub
Lo he hecho sobre la marcha pero creo que te irá bien, y si no me comentas
Mis sludos >> Jacinto