Как получить правильный расчет при определении правильного соответствия

Question

У меня две таблицы делегаций и труда. В этом случае у меня будет 10 делегаций и 5 работ, каждая из которых будет иметь свои временные рамки. До и после делегирования я хочу понять, кто будет рядом, чтобы передать следующую делегацию. В настоящее время я использую этот код, который является неправильным

Private Sub wtg()
    Dim rdel As DAO.Recordset
    Dim rdel2 As DAO.Recordset
    Dim rwork As DAO.Recordset
    Dim btest As Boolean

    Set rdel = CurrentDb.OpenRecordset("select * from delegations order by freetime;")

 With rdel

            .MoveFirst
            Set rdel2 = CurrentDb.OpenRecordset("select * from delegations order by dhrs", dbOpenSnapshot)
            Set rwork= CurrentDb.OpenRecordset("select * from Labor order by freetime", dbOpenSnapshot)
            rdel2.MoveFirst
            rwork.MoveFirst

       Do While Not rdel.EOF

                        .Edit
                        !wrkr = rwork!labour
                        .Update

                        rdel.MoveNext
                        rwork.MoveNext
                        If rwork.EOF Then
                        rwork.MoveFirst
                        btest= True

                    End If
                    Loop

    End With

    Set rdel = Nothing
    Set rdel2 = Nothing
    Set rwork= Nothing

    End sub

Я хочу получить результат, как показано на снимке экрана (вторая таблица). то есть L1 освобождается в 07:10, чтобы он мог выбрать делегацию DEL3 перед вторым свободным человеком. L3, кто следующий свободен, может выбрать Del5 и снова получить бесплатно в 8:00. Мне нужна часть, выделенная красным, как мои результаты. Как я могу получить ее, не могли бы вы исправить код?