A very rough skeleton is shown below. I have plenty of ideas, etc. on how to
help you. Indeed much of what you need I already have. Unfortunately this
would not be "freeware" if you catch my drift. I wonder what might happen if
you clicked on the link below and dug around a little bit. Certainly a phone
call for a few minutes is available. Keep in mind any time zone or location
differences.
Here is the roughest of code:
Private Sub LogicCheck(ByRef mProject)
'Note: The parameters passed above are based on some other code. ZGut check
tells me there are more parameters you need to pass, like the status date,
etc.
Dim pTask As Task
For Each pTask In mProject.Tasks
'Do not update blank lines
If Not pTask Is Nothing Then
'Summary tasks can never require update
If pTask.Summary = True Then
pTask.Flag10 = False
End If
'Do not update external tasks or summary tasks
If (pTask.Summary = False) And (pTask.ExternalTask = False) Then
'default is no update required
pTask.Flag10 = False
'All your tests would go here. Use your imagination
End If 'summary/external task check
End If 'blank line check
Next pTask 'Next Task
End Sub
--
If this post was helpful, please consider rating it.
Jim
Check out my new blog for more information:
http://www.msprojectblog.com