MVEs are more concerned with the satisfaction of those they help than with the considerable points they can earn. They are the types of people you feel privileged to call colleagues. Join us in honoring this amazing group of Experts.
__________ Code in Mainform's Selection Change - Event Property Sheet _____ ________________________________________________________________ Private Sub Form_SelectionChange() Function AllCompleted() As Boolean AllCompleted = True With Me.[Subtask - Subform - Continous Form (2)].Form.RecordsetClone .MoveFirst Do Until .EOF If VarType(![Actual Complete Date]) <> 7 Then AllCompleted = False Exit Function End If .MoveNext Loop End With End Function ______________________________________________________________________ ___ Code in Mainform's text box for completed date - Before Update Property Sheet ____ _______________________________________________________________________ Private Sub Actual_Complete_Date_BeforeUpdate(Cancel As Integer) If Me.[Actual Complete Date] = "" Or IsNull([Actual Complete Date]) Then Me.Completed = False Exit Sub End If Me.Completed = True If Not AllCompleted Then MsgBox "There are Subtasks that are not completed. All Subtasks must be completed before an Action Item can be completed." Cancel = True Exit Sub 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.