Requête CA mensuel + visite + client

Je récapitule :

Première requête : CA Mensuel + nombre visite + ordre décroissant de mois

Montures :

SELECT DISTINCTROW Format$([Montures].[Date],'mmmm yyyy') AS Mois, Sum(Montures.tmpTotal) AS CA, Count(*) AS NB
FROM Montures
GROUP BY Format$([Montures].[Date],'mmmm yyyy'), Year(Montures.Date)*12+DatePart('m',Montures.Date)-1
ORDER BY Year(Montures.Date)*12+DatePart('m',Montures.Date)-1 DESC;

Lentilles :

SELECT DISTINCTROW Format$([Lentilles].[Date],'mmmm yyyy') AS Mois, Sum(Lentilles.tmpTotal) AS CA, Count(*) AS NB
FROM Lentilles
GROUP BY Format$([Lentilles].[Date],'mmmm yyyy'), Year(Lentilles.Date)*12+DatePart('m',Lentilles.Date)-1
ORDER BY Year(Lentilles.Date)*12+DatePart('m',Lentilles.Date)-1 DESC;


Deuxième requête : CA mesuel /clients + nombre visite + ordre décroissant de mois + ordre croissant de client

Montures :

SELECT
DISTINCTROW Clients.Nom, Clients.Prénom, Clients.Localité,
Format$(Montures.Date,'mmmm yyyy') AS Mois, Sum(Montures.tmpTotal) AS
CA, Count(Clients.Code) AS Nombre
FROM Clients INNER JOIN Montures ON Clients.Code=Montures.Client
GROUP
BY Clients.Nom, Clients.Prénom, Clients.Localité,
Format$(Montures.Date,'mmmm yyyy'),
Year(Montures.Date)*12+DatePart('m',Montures.Date)-1, Clients.Nom
ORDER BY Year(Montures.Date)*12+DatePart('m',Montures.Date)-1 DESC , Clients.Nom;

Lentilles :

SELECT
DISTINCTROW Clients.Nom, Clients.Prénom, Clients.Localité,
Format$([Lentilles].[Date],'mmmm yyyy') AS Mois,
Sum(Lentilles.tmpTotal) AS CA, Count(Clients.Code) AS Nombre
FROM Clients INNER JOIN Lentilles ON Clients.Code = Lentilles.Client
GROUP
BY Clients.Nom, Clients.Prénom, Clients.Localité,
Format$([Lentilles].[Date],'mmmm yyyy'),
Year([Lentilles].[Date])*12+DatePart('m',[Lentilles].[Date])-1,
Clients.Nom
ORDER BY Year([Lentilles].[Date])*12+DatePart('m',[Lentilles].[Date])-1 DESC , Clients.Nom;