МС Доступ. Запишите положение наибольшего числа в группе столбцов

Вот интересный ответ. Написано на sql server, с доступом не знаком, но думаю можно попробовать так же.

Предположим, у вас менее 1000 строк.

select 
  max(convert(int, Col1 * 100) * 10000 + Position) % 10000 as Col1R,
  max(convert(int, Col2 * 100) * 10000 + Position) % 10000 as Col2R,
  max(convert(int, Col3 * 100) * 10000 + Position) % 10000 as Col3R
from T

Ок, версия MS Access.

SELECT
  max (  CInt( Col1 * 100) * 10000 + Position ) mod 10000 ,
  max (  CInt( Col2 * 100) * 10000 + Position ) mod 10000 ,
  max (  CInt( Col3 * 100) * 10000 + Position ) mod 10000 
FROM T

Один из вариантов включает агрегатные функции домена.

SELECT DISTINCT DLookUp("Position","Table3","Col1=" & DMax("Col1","Table3")) AS C1, 
DLookUp("Position","Table3","Col2=" & DMax("Col2","Table3")) AS C2, 
DLookUp("Position","Table3","Col3=" & DMax("Col3","Table3")) AS C3, 
DLookUp("Position","Table3","Col4=" & DMax("Col4","Table3")) AS C4
FROM Table3;

Это также возможно с коррелированными вложенными запросами, но это сжигает мой мозг, думая об этом. Я позволю вам изучить эту возможность. Начните с обзора Найдите макс. значение и показать соответствующее значение из другого поля в MS Access

Другой вариант включает пользовательскую функцию VBA. Он либо использовал бы агрегатное выражение домена выше, либо открывал бы объект набора записей.

Function GetMaxPos(strCol As String)
Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("SELECT Position, " & strCol & " FROM Table3 ORDER BY " & strCol & " DESC")
GetMaxPos = rs!Position
End Function

Вызовите функцию из запроса или текстового поля.

SELECT DISTINCT GetMaxPos("Col1") AS C1, 
GetMaxPos("Col2") AS C2, 
GetMaxPos("Col3") AS C3, 
GetMaxPos("Col4") AS C4
FROM Table3;

Любой из этих вариантов может работать медленно с 40 вычисляемыми значениями и большим количеством записей.

Я бы сделал это с подзапросами в операторе SELECT следующим образом:

SELECT 
(SELECT T.Position From Table1 T Where T.Col1 = Agg.Max1) AS Pos1,
(SELECT T.Position From Table1 T Where T.Col2 = Agg.Max2) AS Pos2,
(SELECT T.Position From Table1 T Where T.Col3 = Agg.Max3) AS Pos3,
(SELECT T.Position From Table1 T Where T.Col4 = Agg.Max4) AS Pos4
FROM
(SELECT Max(T1.Col1) AS Max1, Max(T1.Col2) AS Max2, Max(T1.Col3) AS Max3, Max(T1.Col4) AS Max4
FROM Table1 T1) AS Agg

Я не думаю, что это намного более многословно, чем другие решения здесь, мне легче читать и понимать, и это, безусловно, будет работать быстрее, чем VBA. Даже для 40 столбцов, как вы говорите, это немного больше, чем копирование и вставка, чтобы получить результат.