專案) (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
另請參閱
支援和意見反應
有關於 Office VBA 或這份文件的問題或意見反應嗎? 如需取得支援服務並提供意見反應的相關指導,請參閱 Office VBA 支援與意見反應。