With Experts Exchange’s latest app release, you can now experience our most recent features, updates, and the same community interface while on-the-go. Download our latest app release at the Android or Apple stores today!
Private Sub tbxActivity_AfterUpdate() Dim lngDays As Long Dim strMeActivity As String Dim strWhere As String On Error GoTo UnknownActivity lngDays = DLookup("[NormalDaysRequired]", "tblActivities", "Description = '" & Me![Activity] & "'") tbxDateToComplete = tbxDateCreated + lngDays End GoTo Completed UnknownActivity: tbxDateToComplete = tbxDateCreated + 1 Completed: 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.