Обновление значения текстового поля на основе другого поля даты, проходящего определенную дату

Question

Для моей базы данных Access у меня есть единственная таблица с двумя полями - Статус премии и Предлагаемая дата оплаты.Я хочу, чтобы статус присуждения изменился на «Ожидание» после истечения предполагаемого срока исполнения.

В настоящее время я пишу VBA для обновления поля после выполнения критериев.

Function AwardUpdate()

    Dim rstInput As DAO.Recordset
    Set rstInput = CurrentDb.OpenRecordset("TestInput")

    With rstInput
        Do Until .EOF
            .Edit
            If .Fields(19) < Date And .Fields(29) = "Pre-Submission" Then
                .Fields(29) = "Pending"
                .MoveNext
            Else
                .MoveNext
            End If
        Loop
    End With

End Function

Но я не могу получить критерии для проверки того, является ли предлагаемый срок выполненияменьше текущей даты.

Есть ли лучший способ сделать это?

Answer 1

Это должно работать - редактирование только при необходимости:

   Do Until .EOF
       If .Fields(19).Value < Date And .Fields(29).Value = "Pre-Submission" Then
           .Edit
               .Fields(29).Value = "Pending"
           .Update
       End If
       .MoveNext
   Loop