Méthode Application.CheckField (Project)
Cette méthode a la valeur True si les tâches ou les ressources sélectionnées répondent aux critères spécifiés.
expression. CheckField
(_Field_
, _Value_
, _Test_
, _Op_
, _Field2_
, _Value2_
, _Test2_
)
expressionUne variable qui représente un objetApplication.
Nom | Requis/Facultatif | Type de données | Description |
---|---|---|---|
Field | Obligatoire | String | Nom du champ à rechercher. |
Valeur | Obligatoire | String | Valeur à comparer avec celle du champ spécifié par Field. |
Test | Facultatif | String | Type de comparaison réalisée entre les arguments Field et Value. La valeur par défaut est « Égal à ». Il peut s’agir de l’une des chaînes de comparaison suivantes. |
Op | Facultatif | String | Relation entre le critère établi par les arguments Field, Test et Value et le second critère. L'argument Op peut avoir les valeurs « And » et « Or ». |
Field2 | Facultatif | String | Nom du second champ à rechercher. |
Value2 | Facultatif | String | Valeur à comparer avec celle du champ spécifié par Field2. |
Test2 | Facultatif | String | Type de comparaison établie entre les arguments Field2 et Value2. Il peut s’agir de l’une des mêmes chaînes de comparaison que Test. |
Chaîne de comparaison | Description |
---|---|
« égal à » | La valeur de Field est égale à celle de Value. |
"Différent de" | La valeur de Field est différente de celle de Value. |
"Supérieur à" | La valeur de Field est supérieure à celle de Value. |
"Supérieur ou égal à" | La valeur de Field est supérieure ou égale à celle de Value. |
"Inférieur à" | La valeur de Field est inférieure à celle de Value. |
"Inférieur ou égal à" | La valeur de Field est inférieure ou égale à celle de Value. |
"Compris entre" | La valeur de Field est comprise dans celle de Value. |
"Non compris dans" | La valeur de Field n'est pas comprise dans celle de Value. |
« contains » | Le champ contient value. |
"Ne contient pas" | Le champ ne contient pas value. |
"Contient exactement" | Le champ contient exactement Value. |
Variant
L’exemple suivant détermine si la valeur de Duration est égale à 1 et affiche un message approprié.
Sub Check_Field()
Dim T As Task
Dim Result As Boolean
Set T = ActiveProject.Tasks(3)
Result = CheckField("Duration", "1", "equals")
If Result Then
Result = MsgBox(T.GetField(pjTaskName) + " task Duration is equal to value specified.", vbOKOnly, "CheckField Method")
Else
Result = MsgBox(T.GetField(pjTaskName) + " task Duration is not equal to value specified.", vbOKOnly, "CheckField Method")
End If
End Sub
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.