2つのIf Meステートメントを一緒に追加する

Question

2つのステートメントがあり、それぞれ独自に完全に動作します。 1つのステートメントで一緒に作業するようにしていますが、エラーメッセージが表示されます。彼らは

Private Sub NextDue_BeforeUpdate(Cancel As Integer) 
    If Me.NextDue > Me.EndDate Then 
    MsgBox "Check Rent Review Date" 
    Cancel = True 
    End If 
End Sub 

If Me.NextDue < Date Then 
    MsgBox "Date in Past" 
    Cancel = True 
    End If 
End Sub 

ですが、コンパイルエラーが出ます：「もしなしエルス」。 ElseIfを追加しようとしましたが、別のコンパイルエラーが発生しました： "Expected：expression"。彼らは一緒にできるのですか？

Answer 1

あなたが現在あなたのコードの真ん中に持ってEnd Subを削除する必要があります。

Private Sub NextDue_BeforeUpdate(Cancel As Integer) 
If Me.NextDue > Me.EndDate Then 
    MsgBox "Check Rent Review Date" 
    Cancel = True 
ElseIf Me.NextDue < Date Then 
    MsgBox "Date in Past" 
    Cancel = True 
End If 

End Sub