Count Property

Article
09/12/2006

Returns the number of items in the specified collection or object.

For the objects Day, Month, Period, Year; and for the collections Days, Months, and Years, Count is Read-only Integer.

For all other objects and collections, Count is Read-only Long.

Remarks

Returns 1 when applied to the Day object. For the Month, Year, or Period objects, returns the number of days in the month, year, or period.

Example

The following example prompts the user for the name of a resource and then assigns that resource to tasks without any resources.

Sub AssignResource()

    Dim T As Task            ' Task object used in For Each loop
    Dim R    As Resource        ' Resource object used in For Each loop
    Dim Rname As String    ' Resource name
    Dim RID As Long        ' Resource ID

    RID = 0
    RName = InputBox$("Enter the name of a resource: ")

    For Each R in ActiveProject.Resources
        If R.Name = RName Then
            RID = R.ID
            Exit For
        End If
    Next R

    If RID <> 0 Then
        ' Assign the resource to tasks without any resources.
        For Each T In ActiveProject.Tasks
            If T.Assignments.Count = 0 Then
                T.Assignments.Add ResourceID:=RID
            End If
        Next T
    Else
        MsgBox Prompt:=RName & " is not a resource in this project.", buttons:=vbExclamation
    End If

End Sub

Count Property

Remarks

Example

Additional resources