StartDriver.Warnings-Eigenschaft (Project)
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.
Hinweise
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
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.