Convertir Fechas en trimetes+Año Access

La función DatePart() te da la opción de sacar el trimestre de una fecha y también el año: https://support.office.com/es-es/article/parcfecha-funci%C3%B3n-datepart-26868a79-5505-4e5a-8905-6001372223fa

Solo has de usar el valor adecuado en el primer parámetro.

pero esto es con VBA no puedo hacerlo con el generador de expresiones en una consulta? o como un campo calculado?

Ya pude aplicar la funcion a la consulta. Me funciona perfecto. Pero resulta q no me deja filtrar por ese campo. Es decir puedo filtrar por el campo fecha, pero con el campo del trimestre no me desplega ninguna opcion. Esto lo necesotaba asi para hacer el filtro qie describio de nikkito o algo asi es que se llama,  que he estado para filtrar por varios paremetros. Creo q entonces tendre que aplicar esta formula dentro del filtro en vba. Alguna sugerencia? 

Si creas un campo con esa expresión en una consulta, no hay ningún impedimento para que hagas filtros en él, como harías con cualquier otro campo.

Te adjunto estas dos imagenes, como puedes ver al tratar de dar filtro manual a la consulta estas no me muestran la opcioon para seleccionar, otro lado cuando trato de aplicar el filtro por vba y el combobox de las fechas, este me da este error, te agrego el codifo que estoy usando para filtrar, que con todos los campos anteriores me funciona perfectamente, excepto con estas fechas calculadas, 

Private Sub Comando231_Click()
Dim fEstatusProyecto As String
Dim fTipoOferta As String
Dim fCliente As String
Dim fProveedor As String
Dim fSectorMercado As String
Dim fProbabilidad As String
Dim fResponsable As String
Dim fFechaMes As String
Dim fLargo As Integer
Dim miFiltro As String
    fEstatusProyecto = Nz(Me.ESTATUSTXT.Value, "")
    fTipoOferta = Nz(Me.tipoofertatxt.Value, "")
    fCliente = Nz(Me.clienteTXT.Value, "")
    fProveedor = Nz(Me.ProveedorTXT.Value, "")
    fSectorMercado = Nz(Me.SectorMercadoTXT.Value, "")
    fProbabilidad = Nz(Me.ProbabilidadTXT.Value, "")
    fFechaMes = Nz(Me.FechaMesTxT.Value, "")
    fResponsable = Nz(Me.responsableTXT.Value, "")
        mefiltro = ""
        If fEstatusProyecto <> "" Then
        miFiltro = "AND [EstatusProyecto]='" & fEstatusProyecto & "'"
        End If
        If fTipoOferta <> "" Then
        miFiltro = miFiltro & " AND [TipoOferta]='" & fTipoOferta & "'"
        End If
        If fCliente <> "" Then
        miFiltro = miFiltro & " AND [NombreCliente]='" & fCliente & "'"
        End If
        If fProveedor <> "" Then
        miFiltro = miFiltro & " AND [NombreProveedor]='" & fProveedor & "'"
        End If
        If fSectorMercado <> "" Then
        miFiltro = miFiltro & " AND [SectordeMercado]='" & fSectorMercado & "'"
        End If
        If fResponsable <> "" Then
        miFiltro = miFiltro & " AND [NombreEmpleado]='" & fResponsable & "'"
        End If
        If fFechaMes <> "" Then
        miFiltro = miFiltro & " AND [fechames]='" & fFechaMes & "'"
        End If
        If fProbabilidad <> "" Then
        miFiltro = miFiltro & " AND [ProbabilidadOptenerOrden] " & fProbabilidad & "'"
        End If
        fLargo = Len(miFiltro)
        If fLargo > 0 Then
        miFiltro = Right(miFiltro, fLargo - 4)
        End If
    Me.FiltroTXT = miFiltro
    Me.Filter = miFiltro
    Me.FilterOn = True
End Sub

espero puedas ayudarme, y gracias de antemano por tu ayuda.

pd: estoy aplicando el filtro con la fecha convertida en mes, pero es lo mismo que haría para la fecha convertida en trimestre.