Share via


Overallocated Property

True if an assignment or resource is overallocated, or if any of the assignments for a task is overallocated. Read-only Boolean.

Remarks

The Overallocated property does not return any meaningful information for material resources.

Example

The following example displays the percentage of resources in the active project that are overallocated.

Sub DisplayOverallocatedPercentage()

    Dim R As Resource               ' Resource object used in For Each loop
    Dim NOverallocated As Long      ' Number of overallocated resources
    
    For Each R In ActiveProject.Resources
        If R.Overallocated Then NOverallocated = NOverallocated + 1
    Next R
    
    MsgBox (Str$((NOverallocated / ActiveProject.Resources.Count) * 100) _
    & " percent (" & Str$(NOverallocated) & "/" & Str$(ActiveProject.Resources.Count) _
    & ")" & " of the resources in this project are overallocated.")
    
End Sub

Applies to | Assignment Object, Assignments Collection Object | Resource Object, Resources Collection Object | Task Object, Tasks Collection Object

See Also | Level Method