Метод Application.CheckField (Project)

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

Синтаксис

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

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

Параметры

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

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

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

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

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 и обратная связь.