This topic has not yet been rated - Rate this topic

Task.GetField Method

Office 2007
Returns the value in a field. If the selected field is an estimated duration, the returned value will also include the estimated character.

Syntax

expression.GetField(FieldID)

expression   A variable that represents a Task object.

Parameters

NameRequired/OptionalData TypeDescription
FieldIDRequiredLongPjField. Can be one of the following constants:
pjTaskActualCostpjTaskHyperlinkSubAddress
pjTaskActualDurationpjTaskID
pjTaskActualFinishpjTaskIgnoreResourceCalendar
pjTaskActualOvertimeCostpjTaskIndex
pjTaskActualOvertimeWorkpjTaskIndicators
pjTaskActualOvertimeWorkProtectedpjTaskIsAssignment
pjTaskActualStartpjTaskLateFinish
pjTaskActualWorkpjTaskLateStart
pjTaskActualWorkProtectedpjTaskLevelAssignments
pjTaskACWPpjTaskLevelCanSplit
pjTaskAssignmentDelaypjTaskLevelDelay
pjTaskAssignmentUnitspjTaskLinkedFields
pjTaskBaseline1-10CostpjTaskMarked
pjTaskBaseline1-10DurationpjTaskMilestone
pjTaskBaseline1-10DurationEstimatedpjTaskName
pjTaskBaseline1-10FinishpjTaskNotes
pjTaskBaseline1-10StartpjTaskNumber1-20
pjTaskBaseline1-10WorkpjTaskObjects
pjTaskBaselineCostpjTaskOutlineCode1-10
pjTaskBaselineDurationpjTaskOutlineLevel
pjTaskBaselineDurationEstimatedpjTaskOutlineNumber
pjTaskBaselineFinishpjTaskOverallocated
pjTaskBaselineStartpjTaskOvertimeCost
pjTaskBaselineWorkpjTaskOvertimeWork
pjTaskBCWPpjTaskParentTask
pjTaskBCWSpjTaskPercentComplete
pjTaskCalendarpjTaskPercentWorkComplete
pjTaskConfirmedpjTaskPhysicalPercentComplete
pjTaskConstraintDatepjTaskPredecessors
pjTaskConstraintTypepjTaskPreleveledFinish
pjTaskContactpjTaskPreleveledStart
pjTaskCostpjTaskPriority
pjTaskCost1-10pjTaskProject
pjTaskCostRateTablepjTaskRecurring
pjTaskCostVariancepjTaskRegularWork
pjTaskCPIpjTaskRemainingCost
pjTaskCreatedpjTaskRemainingDuration
pjTaskCriticalpjTaskRemainingOvertimeCost
pjTaskCVpjTaskRemainingOvertimeWork
pjTaskCVPercentpjTaskRemainingWork
pjTaskDate1-10pjTaskResourceEnterpriseMultiValueCode20-29
pjTaskDeadlinepjTaskResourceEnterpriseOutlineCode1-29
pjTaskDelaypjTaskResourceEnterpriseRBS
pjTaskDemandedRequestpjTaskResourceGroup
pjTaskDurationpjTaskResourceInitials
pjTaskDuration1-10pjTaskResourceNames
pjTaskDuration1-10EstimatedpjTaskResourcePhonetics
pjTaskDurationVariancepjTaskResourceType
pjTaskEACpjTaskResponsePending
pjTaskEarlyFinishpjTaskResume
pjTaskEarlyStartpjTaskResumeNoEarlierThan
pjTaskEarnedValueMethodpjTaskRollup
pjTaskEffortDrivenpjTaskSheetNotes
pjTaskEnterpriseCost1-10pjTaskSPI
pjTaskEnterpriseDate1-30pjTaskStart
pjTaskEnterpriseDuration1-10pjTaskStart1-10
pjTaskEnterpriseFlag1-20pjTaskStartSlack
pjTaskEnterpriseNumber1-40pjTaskStartVariance
pjTaskEnterpriseOutlineCode1-30pjTaskStatus
pjTaskEnterpriseProjectCost1-10pjTaskStatusIndicator
pjTaskEnterpriseProjectDate1-30pjTaskStop
pjTaskEnterpriseProjectDuration1-10pjTaskSubproject
pjTaskEnterpriseProjectFlag1-20pjTaskSubprojectReadOnly
pjTaskEnterpriseProjectNumber1-40pjTaskSuccessors
pjTaskEnterpriseProjectOutlineCode1-30pjTaskSummary
pjTaskEnterpriseProjectText1-40pjTaskSV
pjTaskEnterpriseText1-40pjTaskSVPercent
pjTaskEstimatedpjTaskTCPI
pjTaskExternalTaskpjTaskTeamStatusPending
pjTaskFinishpjTaskText1-30
pjTaskFinish1-10pjTaskTotalSlack
pjTaskFinishSlackpjTaskType
pjTaskFinishVariancepjTaskUniqueID
pjTaskFixedCostpjTaskUniquePredecessors
pjTaskFixedCostAccrualpjTaskUniqueSuccessors
pjTaskFixedDurationpjTaskUpdateNeeded
pjTaskFlag1-20pjTaskVAC
pjTaskFreeSlackpjTaskWBS
pjTaskGroupBySummarypjTaskWBSPredecessors
pjTaskHideBarpjTaskWBSSuccessors
pjTaskHyperlinkpjTaskWork
pjTaskHyperlinkAddresspjTaskWorkContour
pjTaskHyperlinkHrefpjTaskWorkVariance
pjTaskHyperlinkScreenTip 

Return Value
String

Example
The following example displays the value of a field specified by the user.

Visual Basic for Applications
Sub DisplayField()

    Dim Temp As String

    Temp = InputBox$("Enter the name of the field you want to see:")
    Temp = LCase(Temp)
    
    Select Case Temp
        Case "name"
            MsgBox (ActiveCell.Resource.GetField(FieldID:=pjResourceName))
        Case "initials"
            MsgBox (ActiveCell.Resource.GetField(FieldID:=pjResourceInitials))
        Case "standard rate"
            MsgBox (ActiveCell.Resource.GetField(FieldID:=pjResourceStandardRate))
        Case ""
            End
        Case Else
            MsgBox "You entered an invalid field. Please try again."
            End
    End Select
    
End Sub



Did you find this helpful?
(1500 characters remaining)

Community Additions

ADD
© 2013 Microsoft. All rights reserved.