StartDriver.Suggestions Property (Project)

  • Artikel

Ruft eine Kombination von PjTaskWarnings -Werten, die angeben, ob es gibt potenzielle Probleme, die für einen angegebenen Vorgang behoben werden sollten. Schreibgeschützter langer Wert.

Syntax

Ausdruck. Suggestions

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

HinwBemerkungeneise

Wenn keine Vorschläge für eine Aufgabe vorhanden sind, ist der Wert der Vorschläge 0. Da der Wert von PjTaskWarningsResourceBeyondMaxUnit 64 ist und der Wert der PjTaskWarningsResourceOverallocated liegt bei 128, wenn Vorschläge 192 ist, hat die Aufgabe beider potenzielle 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 Vorschläge für Aufgabe 2 128, zeigt das Meldungsfeld die Ressource überlastet ist. 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 GetTaskSuggestions() 

 Dim suggestions As Long 

 Dim suggestionMsg As String 

 

 suggestions = ActiveProject.Tasks(2).StartDriver.Suggestions 

 

 suggestionMsg = CheckSuggestions(suggestions) 

 

 If Not suggestionMsg = "" Then MsgBox suggestionMsg 

End Sub 

 

Function CheckSuggestions(suggestions As Long) As String 

 Dim partial As Long 

 Dim suggestionResult As String 

 

 suggestionResult = "" 

 partial = suggestions Xor pjTaskWarningResourceBeyondMaxUnit 

 If partial < suggestions Then _ 

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

 

 partial = suggestions Xor pjTaskWarningResourceOverallocated 

 If partial < suggestions Then _ 

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

 

 partial = suggestions Xor pjTaskWarningShadowFinishesEarlierDueToLink 

 If partial < suggestions Then _ 

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

 

 CheckSuggestions = suggestionResult 

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.