SELECT Подрядчики.КодП, Месторождения.Месторождение, Договора.КодД, Договора.№дог, Договора.[№ договора], Договора.Дата, Договора.Договор, Подрядчики.[Наименование подрядчика], Sum(ReestrNach.Znach) AS [Sum-Znach], Sum(ReestrObDog.[Sum-Выполнение]) AS [Sum-Sum-Выполнение], Sum(ReestrObDog.[Sum-Сумма]) AS [Sum-Sum-Сумма], Sum(ReestrCon.Zcon) AS [Sum-Zcon], Int( 0 ) AS [Sum], " " AS №акта,  2  AS Ur
FROM Месторождения INNER JOIN (Подрядчики INNER JOIN (ReestrCon RIGHT JOIN (ReestrNach RIGHT JOIN (ReestrObDog RIGHT JOIN Договора ON ReestrObDog.КодД = Договора.КодД) ON ReestrNach.КодД = Договора.КодД) ON ReestrCon.КодД = Договора.КодД) ON Подрядчики.КодП = Договора.КодП) ON Месторождения.[Шифр месторождения] = Договора.[Шифр месторождения]
WHERE (((Месторождения.[Шифр месторождения])=mest()) AND ((ReestrCon.Zcon)> 0 . 5 )) OR (((Месторождения.[Шифр месторождения])=mest1()) AND ((ReestrCon.Zcon)> 0 . 5 )) OR (((Месторождения.[Шифр месторождения])=mest2()) AND ((ReestrCon.Zcon)> 0 . 5 )) OR (((Месторождения.[Шифр месторождения])=mest3()) AND ((ReestrCon.Zcon)> 0 . 5 ))
GROUP BY Подрядчики.КодП, Месторождения.Месторождение, Договора.КодД, Договора.№дог, Договора.[№ договора], Договора.Дата, Договора.Договор, Подрядчики.[Наименование подрядчика], Int( 0 ), " ",  2 ;

Function mest() As String
mest = Mestor
End Function

Mector = Me.Ber
Me.Ber= 0 
Mector Empty