Propriété StartDriver.Suggestions (Project)

Article
04/07/2023

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

Syntaxe

expression. Suggestions

Expression Expression qui renvoie un objet StartDriver .

Remarques

S’il n’y a aucune suggestion pour une tâche, la valeur de Suggestions est 0. Étant donné que la valeur de pjTaskWarningsResourceBeyondMaxUnit est 64 et que la valeur de pjTaskWarningsResourceOverallocated est 128, si Suggestions a la valeur 192, la tâche présente les deux problèmes potentiels.

Remarque

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

Exemple

Dans l’exemple suivant, si la valeur de la propriété Suggestions pour la tâche 2 est 128, la boîte 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 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

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