Re: Resource Usage view: how display assigned rescources?

From: Ralf (lausianne_at_gmx.net)
Date: 08/30/04 

Date: Mon, 30 Aug 2004 09:36:35 +0200
To: "Jan De Messemaeker" <jandemes@promhyphenade.be>

Dear Jan,

Thanks for your response. It looks like this could work, but when running
it I get this error:

Run time error '438':
Object doesn't support this property or method

in line 7.

Do you have an idea what could be the problem?

Thank you!

Cheers,
Ralf.

On Thu, 26 Aug 2004 13:44:22 +0200, Jan De Messemaeker
<jandemesatpromhyphenadedotbe> wrote:

1> Sub ListOthers()
2> Dim Mustbedone As Task
3> Dim Whodunit As Assignment
4> For Each Mustbedone In ActiveProject.Tasks
5> If Not Mustbedone Is Nothing Then
6> For Each Whodunit In Mustbedone.Assignments

7> Mustbedone.Text1 = Mustbedone.Text1 & " - " &
ActiveProject.Resources_(Whodunit.ResourceID).Name

8> Next Whodunit
9> For Each Whodunit In Mustbedone.Assignments
10> Whodunit.Text1 = Mustbedone.Text1
11> Next Whodunit
12> End If
13> Next Mustbedone
14> End Sub 

-- 
Using Opera's revolutionary e-mail client: http://www.opera.com/m2/