Private Sub Кнопка147_Click()
Dim db As DAO.Database
Dim i As Integer
Set db = CurrentDb
Set rst = Список136.Recordset

SELECT св_рец_раб.работа, конк_работы.наименование_конк_работы AS [Наименование работы], номинац.наим_номин, Count([новизна]<>0) AS Кол_З, Sum([новизна]*1)+Sum([оценка_сложности]*0.4)+Sum([актуальность]*0.9)+Sum([наукоемкость]*0.8)+Sum([защита]*0.1)+Sum([кач_описания]*0.3)+Sum([эффективность]*0.7)+Sum([материалы]*0.5)+Sum([производительность]*0.2)+Sum([среда]*0.6) AS Заочный_этап, Count([качество_през]<>0) AS Кол_О, Sum([качество_през]+[качество_выступл]+[умение_отвечать]+[соответствие]) AS Очный_этап, [Очный_этап]+[Заочный_этап] AS Итог, конк_работы.секция, секц.наим_секц, [фам_уч] & " " & [им_уч] & " " & [отч_уч] AS ФИО, организации.наименование FROM организации INNER JOIN (участники INNER JOIN ((секц INNER JOIN (номинац INNER JOIN (конк_работы INNER JOIN св_рец_раб ON конк_работы.код_конк_работы = св_рец_раб.работа) ON номинац.код_номин = конк_работы.номинация) ON секц.код_секц = конк_работы.секция) INNER JOIN работы_участников ON (конк_работы.код_конк_работы = работы_участников.работа) AND (конк_работы.код_конк_работы = работы_участников.работа)) ON участники.код_уч = работы_участников.участник) ON организации.код_орг = конк_работы.организация WHERE (((св_рец_раб.год)=[Формы]![main]![ПолеСоСписком_год])) GROUP BY св_рец_раб.работа, конк_работы.наименование_конк_работы, номинац.наим_номин, конк_работы.секция, секц.наим_секц, [фам_уч] & " " & [им_уч] & " " & [отч_уч], организации.наименование ORDER BY конк_работы.секция;