SELECT Totali.DataRif, Sum(Totali.QtyIN) as TQtyIN, Sum(Totali.QtyOUT) as TQtyOUT from
[SELECT Format(Year(Lotti.DataAccettazione),'0000')/format(month(Lotti.DataAccettazione),'00') AS DataRif, Sum(Lotti.QtyReale) AS QtyIN, Sum(0) AS QtyOUT
FROM Lotti
WHERE (((Lotti.DataAccettazione) Between DateValue("01/01/2008") And DateValue("30/06/2009")) AND ((Lotti.IdCliente)=24) AND ((Lotti.IdProgramma)=35))
GROUP BY Lotti.DataAccettazione]. AS TOTALI
GROUP BY DataRif ORDER BY DataRif; 
UNION 
 SELECT Totali.DataRif, Sum(Totali.QtyIN) as TQtyIN, Sum(Totali.QtyOUT) as TQtyOUT  
FROM [SELECT Format(Year(DDTTestate.DataDDT),'0000') / format(month(DDTTestate.DataDDT),'00')  as DataRif, Sum(0) AS QtyIN, Sum(DDTRighe.Qty) AS QtyOUT 
FROM (( DDTTestate 
INNER JOIN DDTRighe ON DDTTestate.IdDocumentoTrasp = DDTRighe.IdDocumentoTrasp) 
INNER JOIN Lotti ON DDTRighe.IdLotto = Lotti.IdLotto) 
WHERE DataDDT Between DateValue("01/01/2008") And DateValue("30/06/2009") AND ((Lotti.IdCliente)=24) AND ((Lotti.IdProgramma)=35)
GROUP BY DDTTestate.DataDDT]. AS Totali 
GROUP BY DataRif ORDER BY DataRif