Contextual Guidance at the moment of need helps your employees adopt to new software or processes instantly. Boost knowledge retention and employee engagement step-by-step with one easy solution.
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.
|MS Access query||16||58|
|Want my table columns to autofit.||7||59|
|Is it possible to get data from a web-based interface and bring it over to an Access database?||4||34|
|Add a record to a table when enter value in a combobox||7||31|
Join the community of 500,000 technology professionals and ask your questions.