Vuelvo con mi base de datos

Bien,
En la tabla siniestros he creado un campo nuevo llamado Aux de tipo Si/no, que nos servirá para agrupar todos los siniestros.
Luego he creado la tabla de referencias cruzadas siguiente:
TRANSFORM Count(Siniestros.[Nº SINIESTRO]) AS [CuentaDeNº SINIESTRO]
SELECT Siniestros.Aux, Count(Siniestros.[Nº SINIESTRO]) AS Total
FROM Siniestros
GROUP BY Siniestros.Aux
PIVOT Siniestros.ESTADO;
Así tienes los cerrados y los que no.

No, perdona te he liado creo, mira el dato lo podemos coger de la consulta Asignados, yo lo que quiero que me digas como añado ese dato en el informe, si es que se puede.
(También estaba pensando en hacerlo con Dcont([Nº SINIESTRO];"Tabla!Siniestros";mes=mes de la consulta) y así lee todos los siniestros )
Si se te ocurre otra cosa mejor, lo de poner el campo Aux para mí ahora es un jaleo y claro el dato puedo sacarlo de la consulta que te digo Asignados, que hay me dice todos los siniestros asignados en el mes
Gracias.

Bien,
He creado una tabla de referencias cruzadas llamada "Siniestros_Tabla de referencias cruzadas"
TRANSFORM Count(Siniestros.[Nº SINIESTRO]) AS [CuentaDeNº SINIESTRO]
SELECT Siniestros.MES, Siniestros.AÑO, Count(Siniestros.[Nº SINIESTRO]) AS Total
FROM Siniestros
GROUP BY Siniestros.MES, Siniestros.AÑO
PIVOT Siniestros.ESTADO;
Y luego con el siguiente código te pone en el textbox llamado texto0 te pone el valor de TOTAL preguntándote mes y año. Deberías modificarlo según lo que desees.
Dim mes As String
Dim año As String
mes = InputBox("Introduce mes")
año = InputBox("Introduce año")
Texto0.Value = DLookup("Total", "[Siniestros_Tabla de referencias cruzadas]", "[Mes]=" & mes & " AND [AÑO]=" & año)

Bueno perdoname yo sigo con mis trece, e intento recoger cosas de los expertos, si yo tengo ya una consulta que se llama Asignados no podría poner en el informe = DLookup("Total", "[Asignados]").
Gracias