專案) (StartDriver.Warnings 屬性

會取得指出是否有問題指定任務的 PjTaskWarnings 值的組合。 唯讀的 Long。

語法

expression。 Warnings

表達 會傳回 StartDriver 物件的運算式。

註解

如果沒有工作不會顯示警告， 警告 的值為 0。 由於 pjTaskWarningResourceBeyondMaxUnit 的值是 64 和 pjTaskWarningResourceOverallocated 的值為 128 個，192 警告 時，工作有兩個問題。

注意事項

[!注意事項] PjTaskWarnings 列舉可以搭配 Suggestions 屬性以及 Warnings 屬性。

範例

在下列範例中，如果任務 5 警告 屬性的值為 128 個，訊息方塊會顯示 資源已過度分派。。 如果值是 68，顯示訊息方塊：

• 分派的資源大於最大的可用資源單位。

• 陰影任務會因為前置任務連結而提早完成。

Sub GetTaskWarnings() 

 Dim warnings As Long 

 Dim warningMsg As String 

 

 warnings = ActiveProject.Tasks(5).StartDriver.Warnings 

 

 warningMsg = CheckWarnings(warnings) 

 

 If Not warningMsg = "" Then MsgBox warningMsg 

End Sub 

 

Function CheckWarnings(warnings As Long) As String 

 Dim partial As Long 

 Dim warningResult As String 

 

 warningResult = "" 

 partial = warnings Xor pjTaskWarningResourceBeyondMaxUnit 

 If partial < warnings Then _ 

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

 

 partial = warnings Xor pjTaskWarningResourceOverallocated 

 If partial < warnings Then _ 

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

 

 partial = warnings Xor pjTaskWarningShadowFinishesEarlierDueToLink 

 If partial < warnings Then _ 

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

 

 CheckWarnings = warningResult 

End Function

另請參閱

StartDriver 物件

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。