Table of contents
TOC
Collapse the table of content
Expand the table of content

OverAllocatedAssignments.Item Property (Project)

office 365 dev account|Last Updated: 6/12/2017
|
1 Contributor

Gets a single Assignment object from the OverAllocatedAssignments collection. Read-only Assignment.

Syntax

expression. Item( ** Index** )

expression An expression that returns an OverAllocatedAssignments object.

Parameters

NameRequired/OptionalData TypeDescription
IndexRequiredLongThe index number of the Assignment to return.

Example

The following example finds assignments where the resource is overallocated. When the overPeak argument is False, the overallocation is not greater than the maximum resource time available (100%). If you set overPeak to True, the example finds overallocated assignments that exceed maximum resource time available, such as 150%.

Sub FindOverallocatedAssignments() 

 Dim t As Task 

 Dim a As Assignment 

 Dim overAlloc As OverAllocatedAssignments 

 Dim numOver As Long 

 Dim i As Long 

 Dim overPeak As Boolean 



 overPeak = True 



 For Each t In ActiveProject.Tasks 

 If t.Overallocated Then 

 Set overAlloc = t.StartDriver.OverAllocatedAssignments(overPeak) 

 numOver = overAlloc.Count 

 totalNumOver = overAlloc.TotalDetectedCount 



 For i = 1 To numOver 

 Set a = overAlloc.Item(i) 

 Debug.Print "Task: " &; t.Name &; " - Overallocated resource: " _ 

 &; a.ResourceName 

 Debug.Print vbTab &; "Resource peak: " &; a.Peak 

 Next i 

 End If 

 Next t 

End Sub

See also

Concepts

OverAllocatedAssignments Collection Object

© 2018 Microsoft