Expand|Select|Wrap|Line Numbers
- Private Sub Training_End_AfterUpdate()
- If [Training_End] > DateAdd("d", 1092, [Training_Start]) Then
- MsgBox "The Training End Date is greater than 156 weeks from the Training Start Date.", vbExclamation + vbOKOnly, "Error 101"
- End If
- End Sub
Thanks!
Dave