Access - Crear BBDD seguimiento contratos Clientes - Consejos?

SELECT Clientes.NC, Clientes.Cliente, Territorio.Territorio, Territorio.Id AS idt, [C TCont].Tipo AS Ct, [C Denom].Tipo, [C Contra R].[No Contrato], [C Contra R].[F Inicio], [C Contra R].[F Termina], Right([no Contrato],2) AS M, Right([no Contrato],6) AS A, [C Suplemt].[No sup], [C Suplemt].[No cont], [C Suplemt].[F Inicio] AS FI, [C Suplemt].[F Termina] AS FT, DateDiff("d",Date(),[C Contra R]![F Termina]) AS dc, DateDiff("d",Date(),[C Suplemt]![F Termina]) AS ds, [C TSup].Tipo AS TS, [C Contra R].PSTN

FROM [C TSup] RIGHT JOIN ((((([C TCont] RIGHT JOIN [C Contra R] ON [C TCont].Id = [C Contra R].Tipo) RIGHT JOIN (Clientes LEFT JOIN [C Contrato] ON Clientes.IDCliente = [C Contrato].[Id Cliente]) ON [C Contra R].[Id Cliente] = Clientes.IDCliente) LEFT JOIN Territorio ON Clientes.Territorio = Territorio.Id) LEFT JOIN [C Denom] ON [C Contra R].Den = [C Denom].Id) LEFT JOIN [C Suplemt] ON ([C Contra R].[No Contrato] = [C Suplemt].[No cont]) AND ([C Contra R].[Id Cliente] = [C Suplemt].[Id Cliente])) ON [C TSup].Id = [C Suplemt].Tipo

WHERE (((DateDiff("d",Date(),[C Contra R]![F Termina])) Between 0 And 90)) OR (((DateDiff("d",Date(),[C Suplemt]![F Termina])) Between 0 And 90))

ORDER BY Right([no Contrato],2), Right([no Contrato],6);

DifFecha("d";Fecha();[C Contra R]![F Termina])