Как изменить статус на основе даты в другом текстовом поле в форме - Доступ

Question

Я создаю учебную базу данных.

Мне нужно изменить значение текстового поля в форме на основе даты в другом текстовом поле.

У меня есть следующее:

Refresher Period - TxtRef
Participation Date - TxtPart
Refresher Date - TxtRefDate
Status - TxtStatus

Я хочу обновить статус до - In Date, Expired или Expiring на основе следующих правил, применяемых к дате в TxtRefDate.

Значение <Сейчас () + 60 "Истекает" </p>

Значение

Значение> Сейчас () + 60 "В дате"

Answer 1

Создать небольшую вспомогательную функцию:

Public Function Status(ByVal RefDate As Date) As String

    Dim Description As String

    Select Case DateDiff("d", Date, RefDate)
        Case > 60
            Description = "In date"
        Case > 0
            Description = "Expiring"
        Case Else
            Description = "Expired"
    End Select

    Status = Description

End Function

Теперь установите ControlSource из txtStatus в:

=Status([TxtRefDate])

Answer 2

Я думаю, вы ищете что-то подобное?

If TxtRefDate.Value < Now() Then
    TxtStatus.Value = "Expired"
Else:
    If TxtRefDate.Value < Now() + 60 Then
        TxtStatus.Value = "Expiring"
    Else:
        TxtStatus.Value = "In Date"
    End If
End If