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
|Menu Macro ‘Action Failed’, Access 2003||7||18|
|Insert query not working with a linked sharepoint table with a multi-value field||10||20|
|Should I use multiple instances of MS Access||13||35|
|VBA Code to Save Access Report to PDF File Using Acrobat 11||13||24|