Here is a sample of some VBA code that will populate the Task Text30 field with the numbers of the baselines for which each task has values saved. This is useful if you are using lots of the baselines but not all your tasks have had all the baselines saved.

For example:

“Task” has values in Baseline, Baseline2, Baseline4 and Baseline9 while “Other Task” only has values in Baseline2.

   1:  Sub WhichBaselinesSaved()

   2:  Dim t As Task

   3:  Dim i As Long

   4:   

   5:  For Each t In ActiveProject.Tasks

   6:      If Not (t Is Nothing) Then

   7:          t.Text30 = ""

   8:          For i = 0 To 10

   9:              If i = 0 Then

  10:                  If t.BaselineStart < 50000 Then

  11:                      t.Text30 = t.Text30 & i & ", "

  12:                  End If

  13:              ElseIf Not t.GetField(Application.FieldNameToFieldConstant("Baseline" _

  14:              & i & "Start", pjTask)) = "NA" Then

  15:                      t.Text30 = t.Text30 & i & ", "

  16:              End If

  17:          Next i

  18:          t.Text30 = Left$(t.Text30, Len(t.Text30) - 2)

  19:      End If

  20:      

  21:  Next t

  22:  End Sub

OK as nerdy things go I’m pretty sure a 4 day conference about Project Server ranks right up there. Maybe not as nerdy as Blizzcon but for sure more nerdy than Comdex. Of course I’m using ‘nerd’ in its most complimentary sense.
:-)

September 14-17 2009 in Phoenix. The Project Conference is THE place to be to learn from and rub elbows with all the best minds in the Project\Project Server\Portfolio Server universe. From the designers, the developers, testers, support pros, Microsoft Consulting Services on the consulting and implementation side, as well as the many GREAT partners providing addins, training and top notch deployment consulting…everyone is represented.

It is going to be a huge geek-out that is sure to answer all your questions about this version and the next! :-)