Rod,
Thanks. That's exactly what I needed. It looks ridiculously obvious at
this point, but I believe I was not aware of that format. I knew about
Activeproject.Tasks(100).Start
but I didn't realize the index (100) could be applied after a task's field
value, as you've done, ie
Activeproject.Tasks.UniqueID(100).Start
As far as my specific application, in case anyone out there is interested, I
now have a nice little display that pops up each time the user saves, using
the following two subroutines:
In the Project Module:
Private Sub Project_BeforeSave(ByVal pj As Project)
Call ShowKeyReleaseDates
End Sub
In a module called SpecialUtils:
Sub ShowKeyReleaseDates()
MsgBox Prompt:= _
Format(ActiveProject.Tasks.UniqueID(6116).Finish, "mmm dd, yyyy") & Chr(10) &
Chr(10) & _
Format(ActiveProject.Tasks.UniqueID(6115).Finish, "mmm dd, yyyy") & Chr(10) &
Chr(10) & _
Format(ActiveProject.Tasks.UniqueID(2387).Finish, "mmm dd, yyyy") & Chr(10) &
Chr(10) & _
Format(ActiveProject.Tasks.UniqueID(6118).Finish, "mmm dd, yyyy") & Chr(10) &
Chr(10) & _
dd, yyyy") & Chr(10) & Chr(10), _
Title:="6.4 Key Release Dates"
End Sub
This of course assumes that the unique ids of these tasks don't change,
which is a fairly reasonable assumption in my case. Now that I think of it,
I'm going to add an "On Error Resume Next" command, just in case.
-Bill