Méthode Application.FieldNameToFieldConstant (Project)

Article
04/07/2023

Renvoie une valeur Long pour un nom de champ personnalisé local ou d’entreprise.

Syntaxe

expression. FieldNameToFieldConstant( _FieldName_, _FieldType_ )

expressionUne variable qui représente un objetApplication.

Paramètres

Nom	Requis/Facultatif	Type de données	Description
FieldName	Requis	String	Nom du champ personnalisé local ou d’entreprise.
FieldType	Facultatif	Long	Type du champ. Il peut s’agir de l’une des constantes PjFieldType suivantes : pjProject, pjResource ou pjTask. La valeur par défaut est pjTask.

Valeur renvoyée

Long

Remarques

Si l’argument FieldName est un champ personnalisé local, la valeur retournée peut être une constante PjField . Si FieldName est un champ personnalisé d’entreprise, la valeur retournée ne correspond pas à une constante PjField , car il peut y avoir un nombre illimité de champs personnalisés d’entreprise.

Remarque

Pour des raisons d’utilisation et de performances, le nombre de champs personnalisés d’entreprise doit être limité à quelques centaines au maximum.

Les champs personnalisés du projet sont accessibles via la propriété ProjectSummaryTask.

Exemple

L’exemple suivant montre la différence entre la méthode FieldNameToFieldConstant et la méthode FieldConstantToFieldName :

Pour utiliser l’exemple, utilisez Project Web App pour créer un champ personnalisé de texte de projet d’entreprise nommé TestEntProjText.
Redémarrez Project avec un profil Project Server afin qu’il inclue le nouveau champ personnalisé.
Créez un projet avec une valeur pour le champ TestEntProjText dans la boîte de dialogue Informations sur le projet.
La macro TestEnterpriseProjectCF utilise la méthode FieldNameToFieldConstant pour rechercher le numéro de projectField, par exemple 190873618.
La macro affiche le nombre et la valeur de texte dans une zone de message à l’aide de la méthode GetField.
La macro obtient le nom du champ à l’aide de la méthode FieldConstantToFieldName , définit une nouvelle valeur à l’aide de la méthode SetField , puis affiche le nom du champ et la nouvelle valeur dans une autre boîte de message.

Sub TestEnterpriseProjectCF() 
    Dim projectField As Long 
    Dim projectFieldName As String 
    Dim message As String 
 
    projectField = FieldNameToFieldConstant("TestEntProjText", pjProject) 
 
    ' Show the enterprise project field number and old value. 
    message = "Enterprise project field number: " & projectField & vbCrLf 
    MsgBox message & ActiveProject.ProjectSummaryTask.GetField(projectField) 
 
    ActiveProject.ProjectSummaryTask.SetField FieldID:=projectField, Value:="This is a new value." 
 
    ' For a demonstration, show the field name from the field number, and verify the new value. 
    projectFieldName = FieldConstantToFieldName(projectField) 
    message = "New value for field: " & projectFieldName & vbCrLf 
    MsgBox message & ActiveProject.ProjectSummaryTask.GetField(projectField) 
End Sub

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.

Share via