次の方法で共有

StartDriver.Warnings プロパティ (Project)

  • [アーティクル]

指定したタスクに問題があるかどうかを示す PjTaskWarnings の値の組み合わせを取得します。 取得のみ可能な Long 値です。

構文

式。 Warnings

式StartDriver オブジェクトを返す式。

注釈

タスクの警告がない場合、 警告 の値は 0 になります。 PjTaskWarningResourceBeyondMaxUnit の値は 64 であり、 pjTaskWarningResourceOverallocated の値は 128、192 は、 警告 、ために、問題の両方がタスクです。

注:

[!メモ] PjTaskWarnings 列挙体は、 提案 のプロパティと、[ 警告 ] プロパティの両方を使用できます。

例

次の例では、タスク 5 の 警告 のプロパティの値が 128 の場合、メッセージ ボックスを示しています リソースが割り当て超過します。。 値が 68 の場合は、メッセージ ボックスを示しています。

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

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

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 のサポートおよびフィードバックを参照してください。