1. Максимальное кол-во столбцов в перекрестном запросе - не то 200, не то 250.
2. Делаем таблицы Месяцы (из одного поля "Месяц", с числами от 1 до 12) и Года (из одного поля "Год" с числами, скажем, от 1901 до 2099 :)
3. Создаем в каком-нибудь модуле
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
Public Function GetFirstDate() As Date
GetFirstDate = [Forms]![ВыборДоговоровАренды]![сДаты]
End Function
Public Function GetLastDate() As Date
GetLastDate = [Forms]![ВыборДоговоровАренды]![поДату]
End Function
Public Function GetSaler() As String
GetSaler = [Forms]![ВыборДоговоровАренды]![Арендодатель]
End Function
Public Function GetPayer() As String
GetPayer = [Forms]![ВыборДоговоровАренды]![Арендатор]
End Function
У меня перекрестный запрос не захотел к форме обращаться в 97-м акцессе.
4. Сам запрос:
1.
2.
3.
4.
5.
6.
7.
8.
TRANSFORM First([Договоры аренды].[Цена по договору за месяц]) AS [First_Цена по договору за месяц]
SELECT [Договоры аренды].Код
FROM [Договоры аренды], Года, Месяцы
WHERE ((([Договоры аренды].Арендатор)=GetPayer()) AND
(([Договоры аренды].Арендодатель)=GetSaler()) AND (([Договоры аренды].[Начало договора])<=GetLastDate())
AND (([Договоры аренды].[Срок окончания])>=GetFirstDate())
AND (([Год]* 12 +[Месяц]) Between (Year([Начало договора])* 12 +Month([Начало договора])) And (Year([Срок окончания])* 12 +Month([Срок окончания]))))
GROUP BY [Договоры аренды].Код
PIVOT Format([Месяц], "00 ") & "-" & Format([Год], "0000 ");
(запрос не проверял, но должен работать :)
