Запрос доступа: сравните записи в группе, а затем выберите одну на основе критерия в другом поле

Единственный способ, который я мог придумать, - это использовать функции VBA. По одному на каждый столбец.
Откройте модуль в редакторе VBA и введите следующее:

Option Explicit 

Public Function Get_D_before_G(iItemID As Long, iGroup As Integer)
Dim bFlag1 As Boolean, bFlag2 As Boolean
Dim iD_before1 As Integer, iD_before2 As Integer
    With CurrentDb.OpenRecordset("SELECT Full_dur, D_before FROM qYourOriginalQuery WHERE ItemID = " & iItemID & " AND qYourOriginalQuery.Group = " & iGroup & ";", dbOpenDynaset)
        .MoveFirst
        bFlag1 = !Full_dur
        iD_before1 = !D_before
        .MoveNext
        bFlag2 = !Full_dur
        iD_before2 = !D_before
        Select Case True
            Case bFlag1 And bFlag2 'case 1: both are true
                Get_D_before_G = !D_before
            Case bFlag1 Or bFlag2  'case 2: this case excludes both are true, as this is the first case
                If bFlag1 Then
                    Get_D_before_G = !D_before
                Else
                    .MovePrevious
                    Get_D_before_G = !D_before
                End If
            Case Else 'case 3: both are false
                If iD_before1 < iD_before2 Then
                    Get_D_before_G = iD_before1
                Else
                    Get_D_before_G = iD_before2
                End If
        End Select
    End With
End Function

Public Function Get_D_after_G(iItemID As Long, iGroup As Integer)
Dim bFlag1 As Boolean, bFlag2 As Boolean
Dim iD_after1 As Integer, iD_after2 As Integer
    With CurrentDb.OpenRecordset("SELECT Full_dur, D_after FROM qYourOriginalQuery WHERE ItemID = " & iItemID & " AND qYourOriginalQuery.Group = " & iGroup & ";", dbOpenDynaset)
        .MoveFirst
        bFlag1 = !Full_dur
        iD_after1 = !D_after
        .MoveNext
        bFlag2 = !Full_dur
        iD_after2 = !D_after
        Select Case True
            Case bFlag1 And bFlag2 'case 1: both are true
                Get_D_after_G = !D_after
            Case bFlag1 Or bFlag2  'case 2: this case excludes both are true, as this is the first case
                If bFlag1 Then
                    Get_D_after_G = !D_after
                Else
                    .MovePrevious
                    Get_D_after_G = !D_after
                End If
            Case Else 'case 3: both are false
                If iD_after1 < iD_after2 Then
                    Get_D_after_G = iD_after1
                Else
                    Get_D_after_G = iD_after2
                End If
        End Select
    End With
End Function

Затем добавьте к исходному запросу два новых столбца, например:

SELECT rest_of_your_columns, Get_D_before_G(ItemID, Group) AS D_before_G, Get_D_after_G(ItemID, Group) AS D_after_G     
FROM rest_of_your_query;

Важные замечания об этом методе:

• Замените qYourOriginalQuery в функциях (есть 4 раза) на тот, который у вас уже есть.
• Тип полей ItemID и Group должен быть числовым. Если нет, то операторы SELECT в функциях VBA необходимо изменить.
• Значения ItemID и Group существуют только парами, как вы утверждаете. То есть их каждый раз строго 2. Если их больше или меньше, то этот метод не сработает.
• Это может быть не совсем эффективно при использовании с большими наборами данных.
• Возможно, вам стоит подумать об изменении названия поля Group, поскольку это зарезервированное слово и может вызвать у вас проблемы.

Вы можете решить это с помощью двух запросов.

Первый запрос — это запрос GROUP BY, который находит наименьшее значение для поля Full_dur. Т.е. если есть запись «Нет», она вернет «Нет», в противном случае она вернет «Да» в качестве поля YesOrNo.

Во втором запросе вы создаете два Dlockup() для значений в D_before и D_after с фильтрацией по идентификатору, ItemID, группе и полю YesOrNo из первого запроса.

Имя основного запроса в этом примере — qryData.

Первый запрос (qryDataFindNo) выглядит так:

Второй запрос выглядит следующим образом:

Поиски:

D_before_G: DLookUp("D_before","qryData","ID = " & [qryData].[ID] & " AND ItemID = " & [qryData].[ItemID] & " AND Group = " & [qrydata].[Group] & " AND Full_dur = """ & [YesOrNo] & """")

D_after_G: DLookUp("D_after","qryData","ID = " & [qryData].[ID] & " AND ItemID = " & [qryData].[ItemID] & " AND Group = " & [qrydata].[Group] & " AND Full_dur = """ & [YesOrNo] & """")