StartDriver.Warnings-Eigenschaft (Project)

  • Artikel

Ruft eine Kombination von PjTaskWarnings -Werten, die angeben, ob Probleme für einen angegebenen Vorgang ab. Schreibgeschützter langer Wert.

Syntax

Ausdruck. Warnings

Ausdruck Ein Ausdruck, der ein StartDriver-Objekt zurückgibt.

HinwBemerkungeneise

Wenn keine Warnungen für einen Vorgang vorhanden sind, ist der Wert der Warnungen 0. Da der Wert von PjTaskWarningResourceBeyondMaxUnit 64 ist und der Wert der PjTaskWarningResourceOverallocated liegt bei 128, wenn Warnungen 192 ist, hat die Aufgabe diese beiden Probleme.

Hinweis

[!HINWEIS] Die PjTaskWarnings -Aufzählung kann mit der Suggestions -Eigenschaft und der Warnings -Eigenschaft verwendet werden.

Beispiel

Im folgenden Beispiel ist der Wert der Eigenschaft Warnungen für Aufgabe 5 128, das Meldungsfeld zeigt die Ressource ist überlastet.. Wenn der Wert 68 ist, zeigt das Meldungsfeld:

  • Die Zuordnung überschreitet die maximal verfügbaren Ressourceneinheiten.

  • Der Schattenvorgang endet aufgrund einer Vorgängerverknüpfung früher.

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

Siehe auch

StartDriver-Objekt

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.