Propriété StartDriver.Warnings (Project)

Article
04/07/2023

Obtient une combinaison de valeurs PjTaskWarnings qui indiquent s’il existe des problèmes pour une tâche spécifiée. Long (en lecture seule).

Syntaxe

expression. Warnings

Expression Expression qui renvoie un objet StartDriver .

Remarques

S’il n’y a pas d’avertissements pour une tâche, la valeur avertissements est 0. Étant donné que la valeur de pjTaskWarningResourceBeyondMaxUnit est 64 et que la valeur de pjTaskWarningResourceOverallocated est 128, si Warnings a la valeur 192, la tâche présente les deux problèmes.

Remarque

L’énumération PjTaskWarnings peut être utilisée avec les propriétés Suggestions et Warnings.

Exemple

Dans l’exemple suivant, si la valeur de la propriété Warnings pour la tâche 5 est 128, la zone de message indique La ressource est surutilisée. Si la valeur est 68, les messages suivants s’affichent :

Cette affectation dépasse le nombre maximal d’unités de ressources disponibles.
La tâche instantanée s’est terminée plus tôt en raison d’un prédécesseur lié.

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

Voir aussi

Objet StartDriver

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.

Partager via