Table of contents
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.


expression. Item( ** Index** )

expression An expression that returns an OverAllocatedAssignments object.


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


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


OverAllocatedAssignments Collection Object

© 2018 Microsoft