Метод Application.CheckField (Project)

  • Статья

Значение True , если выбранные задачи или ресурсы соответствуют указанным условиям.

Синтаксис

выражение. CheckField (_Field_, _Value_, _Test_, _Op_, _Field2_, _Value2_, _Test2_)

выражение: переменная, представляющая объект Application.

Параметры

Имя Обязательный или необязательный Тип данных Описание
Field Обязательный String Имя поля для поиска.
Значение Обязательный String Значение, сравниваемое со значением поля, указанного в поле Field.
Test Необязательный String Тип сравнения между полем и значением. Значение по умолчанию равно. Может быть одной из следующих строк сравнения.
Op Необязательный String Как критерии, установленные с полем, тестом и значением , связаны со вторыми критериями. Для аргумента OP можно задать значение "И" или "Или".
Field2 Необязательный String Имя второго поля для поиска.
Value2 Необязательный String Значение для сравнения со значением поля, заданного полем Field2.
Test2 Необязательный String Тип сравнения между Field2 и Value2. Может быть одной из той же строки сравнения, что и Test.

Строки сравнения

Строка сравнения Описание
"равно" Значение Поля равно Значению.
"не равно" Значение Поля не равно Значению.
"больше, чем" Значение Поля больше значения Value.
"больше или равно" Значение Поля больше или равно Значению.
"меньше, чем" Значение Поля меньше значения Value.
значение "меньше или равно" Значение Поля меньше или равно значению Value.
"is within" Значение Поля находится в значении Value.
"не внутри" Значение Field не находится в значении Value.
"contains" Поле содержит значение.
"не содержит" Поле не содержит значение.
"содержит точно" Поле точно содержит значение.

Возвращаемое значение

Variant

Пример

В следующем примере определяется, равно ли значение Duration 1, и отображается соответствующее сообщение.

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

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.