Edit

StartDriver.Suggestions property (Project)

  • Article

Gets a combination of PjTaskWarnings values that indicate whether there are potential problems that should be fixed for a specified task. Read-only Long.

Syntax

expression. Suggestions

expression An expression that returns a StartDriver object.

Remarks

If there are no suggestions for a task, the value of Suggestions is 0. Because the value of pjTaskWarningsResourceBeyondMaxUnit is 64 and the value of pjTaskWarningsResourceOverallocated is 128, if Suggestions is 192, the task has both of the potential problems.

Note

The PjTaskWarnings enumeration can be used with both the Suggestions property and the Warnings property.

Example

In the following example, if the value of the Suggestions property for task 2 is 128, the message box shows The resource is overallocated. If the value is 68, the message box shows:

  • The assignment is more than the maximum resource units available.

  • The shadow task finishes earlier because of a predecessor link.

Sub GetTaskSuggestions() 

 Dim suggestions As Long 

 Dim suggestionMsg As String 

 

 suggestions = ActiveProject.Tasks(2).StartDriver.Suggestions 

 

 suggestionMsg = CheckSuggestions(suggestions) 

 

 If Not suggestionMsg = "" Then MsgBox suggestionMsg 

End Sub 

 

Function CheckSuggestions(suggestions As Long) As String 

 Dim partial As Long 

 Dim suggestionResult As String 

 

 suggestionResult = "" 

 partial = suggestions Xor pjTaskWarningResourceBeyondMaxUnit 

 If partial < suggestions Then _ 

 suggestionResult = suggestionResult & "The assignment is more than the maximum resource units available." & vbCrLf 

 

 partial = suggestions Xor pjTaskWarningResourceOverallocated 

 If partial < suggestions Then _ 

 suggestionResult = suggestionResult & "The resource is overallocated." & vbCrLf 

 

 partial = suggestions Xor pjTaskWarningShadowFinishesEarlierDueToLink 

 If partial < suggestions Then _ 

 suggestionResult = suggestionResult & "The shadow task finishes earlier because of a predecessor link." & vbCrLf 

 

 CheckSuggestions = suggestionResult 

End Function

See also

StartDriver Object

Support and feedback

Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.