How would I put these two BeforeUpdates together

[hardhitter06]

Hello,

How would I put these two BeforeUpdates together?

Private Sub LastMissingDate_BeforeUpdate(Cancel As Integer)
If LastMissingDate.Value > Date Then
MsgBox ("Last Missing Date cannot be greater than Today's Date!")
Cancel = True
End If
End Sub

Private Sub LastMissingDate_BeforeUpdate(Cancel As Integer)
If LastMissingDate.Value < FirstMissingDate.Value Then
MsgBox ("Last Missing Date cannot be less than First Missing Date!")
Cancel = True
End If
End Sub

Thank you,

 

[pbaldy]

How about:

Private Sub LastMissingDate_BeforeUpdate(Cancel As Integer)
If LastMissingDate.Value > Date Then
MsgBox ("Last Missing Date cannot be greater than Today's Date!")
Cancel = True
Exit Sub
End If

If LastMissingDate.Value < FirstMissingDate.Value Then
MsgBox ("Last Missing Date cannot be less than First Missing Date!")
Cancel = True
End If
End Sub

 

[hardhitter06]

Perfect. Thanks Paul

 

[pbaldy]

No problemo.