forms - フォームを使用して、誰かが指定された年齢よりも年上かどうかを確認します

Question

R16 または R18 の映画をレンタルしようとしている顧客が 16 歳以上か 18 歳以上かをフォームに知らせるために、このコードを試しました。

HireMovieID と HireCustomerID は、フォームの 2 つのテキスト ボックスです。MovieID と CustomerID は、MovieList テーブルと CustomerInfo テーブル内の列です。

    Private Sub HireCommand_Click()

If Not IsNumeric(HireMovieID) Or Not IsNumeric(HireCustomerID) Then
    MsgBox "Error: Not a number"
    Exit Sub
End If

Dim MovieRating As String
Dim CustomerDOB As Date
Dim Age16Check As Date
Dim Age18Check As Date

MovieRating = DLookup("[Rating]", "MovieList", "MovieID = [Forms]![HireForm]![HireMovieID]")
CustomerDOB = DLookup("[DOB]", "CustomerInfo", "CustomerID = [Forms]![HireForm]![HireCustomerID]")
Age16Check = DateSerial(-16, Month(Date), Day(Date))
Age18Check = DateSerial(-18, Month(Date), Day(Date))


If MovieRating = "R16" Then
    If CustomerDOB > Age16Check Then
        MsgBox "This customer is too young to hire this movie"
    Else: MsgBox "This customer is old enough to hire this movie"
    End If
ElseIf MovieRating = "R18" Then
    If CustomerDOB > Age18Check Then
        MsgBox "This customer is too young to hire this movie"
    Else: MsgBox "This customer is old enough to hire this movie"
    End If
Else: MsgBox "This movie does not have a restricted rating, thus this customer may hire this DVD"
End If

End Sub

編集:このコードを実行すると、R16 の映画が選択されている場合、すべての顧客が若すぎて雇えないと表示されますか? どうすればこれを修正できますか?

よろしくお願いします。:)