Access - Informe de consulta de referencias cruzadas

Private Sub Report_Open(Cancel As Integer)

    Dim i As Integer, n As Integer

    Dim Mes As String, Ctr As String

    Dim xx As String

    For n = Forms!Parametros!MesDesde To Forms!Parametros!MesHasta

        i = i + 1

        Ctr = Format(i, "00")

        Mes = Format(n, "00")

        Me.Controls("Etiqueta" & Ctr).Caption = UCase(MonthName(n))

        'Esto es para saber si en el intervalo hay algún mes que no tenga datos

        'Si es así, mantiene la columna en blanco pero no da error

        'Seguro que hay otra forma de hacerlo pero ésta es sencilla y funciona.

        On Error Resume Next

        xx = CurrentDb.QueryDefs(Me.RecordSource).Fields(Mes).Name

        If Err = 0 Then     'Existe el mes

            Me.Controls("Texto" & Ctr).ControlSource = Mes

        Else                'No existe el mes

            Me.Controls("Texto" & Ctr).ControlSource = ""

        End If

        On Error GoTo 0

    Next

End Sub

TRANSFORM

Sum(Cantidad) AS Ventas

SELECT

Compania

FROM

Pedidos

WHERE

Fecha Between #01-01-1998# And #12-31-1998#

GROUP BY

Compania

ORDER BY

Compania

PIVOT

"Trimestre" &

DatePart("q", Fecha)

In ('Trimestre1', 'Trimestre2', 'Trimestre 3', 'Trimestre 4')