RUN-TIME ERROR 438
I have the user pick up a date from the calendar and returns that value to
the txt1stDistStart.
I wanted to validate that the date selected is less or equal to the
Effective Date (txtEffdate) if not I wanted to return to the Distribution
Field (txt1stDistStart) but I keep getting run-time erro 438 - Object doesn't
support this property or method. Where did I go wrong?
Private Sub txt1stDistStart_Change()
If Me.txt1stDistStart Me.txtEffDate Then
MsgBox "1st Distribution Is Greater Than Start Date"
Sheets("Promo Request Form").Activate
Me.txt1stDistEnd.ActiveControl
Me.txt1stDistStart.SetFocus
Else
Me.txt1stDistEnd.SetFocus
End If
End Sub
Thank You
|