Blockchain is a technology that underpins the success of Bitcoin and other digital currencies, but it has uses far beyond finance. Learn how blockchain works and why it is proving disruptive to other areas of IT.
__________ 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.