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.
“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
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
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! :-)