Get project from task object

[Albin]

Hi,

Maybe a basic question ... if I have a Task object how can I get its
corresponding Project object? The scenario is that in the
Application_ProjectBeforeTaskChange(Task task, PjField field, object newVal,
ref bool cancel) event handler method I get a Task object and I need to
access its corresponding Project object. Using task.Project just returns the
name of the Project. I tried using task.Application.ActiveProject but
sometimes ProjectBeforeTaskChange event is not triggered for a task changed
in the active project, eg, when opening a new file through "File > New..." or
pressing Cntrl+N.

Thanks for any help.

 

[Rod Gill]

Hi,

Does the following work?

application.Projects(Task.Project)

--

Rod Gill
Microsoft MVP for Project

Author of the only book on Project VBA, see:
http://www.projectvbabook.com

 

[Jan De Messemaeker]

As an alternative to Gill's advice, the parent proprty of a task returns the
project object.
HTH

--
Jan De Messemaeker
Microsoft Project Most Valuable Professional
+32 495 300 620
For availability check:
http://users.online.be/prom-ade/Calendar.pdf

 

[Bill B]

Generally, the Parent object will give the task's project. If you have a
project with subprojects, the subproject that might be a task's parent is
not always loaded. Here's what I do to make sure I get a project object:

Function GetProjectFromTask(t as task) as Project
On Error Resume Next
Set GetProjectFromTask = t.Parent
If Err Or GetProjectFromTask Is Nothing Then ' subproject isn't loaded
Set GetProjectFromTask = Projects(t.Project) ' may load sub, may not
If Err Or GetProjectFromTask Is Nothing Then
If InStr(t.Project, ".mpp") <> 0 Then ' couldn't find with mpp
Set GetProjectFromTask = Projects(Left(t.Project,
InStr(t.Project, ".mpp") - 1)) ' try without
Else ' couldn't find without .mpp
Set GetProjectFromTask = objProj.Projects(t.Project &
".mpp")
Err.Clear
End If
If Err Then
MsgBox "No Luck"
Set GetProjectFromTask = Nothing
End If
End If
End If
On Error GoTo 0
End Function

Bill B