Make Your Microsoft Dynamics Investment Count & Drastically Decrease Training Time by Providing Intuitive Step-By-Step WalkThru Tutorials.
Private Sub txtExpDate_AfterUpdate() Dim daysDiff As Integer daysDiff = DateDiff("d", Me.IssueDate, Me.ExpirationDate) If daysDiff > 30 Then MsgBox "Quality alerts cannot expire more than 30 days from date of issue." Me.ExpirationDate.Value = "" 'Me.ExpirationDate.SetFocus End If End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.