Método Application.CheckField (Project)

True se as tarefas ou recursos selecionados de acordo com os critérios especificados.

Sintaxe

expression. CheckField (_Field_, _Value_, _Test_, _Op_, _Field2_, _Value2_, _Test2_)

expressão Uma variável que representa um Aplicativo objeto.

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
Field	Obrigatório	String	O nome do campo a ser pesquisado.
Value	Obrigatório	String	O valor a ser comparado com o valor do campo especificado com Field.
Test	Opcional	String	O tipo de comparação feita entre Field e Value. O valor padrão é "é igual a". Pode ser uma das seguintes cadeias de comparação.
Op	Opcional	String	A forma como os critérios estabelecidos com Campo, Teste e Valor estão relacionados com o segundo critério. O argumento Op pode ser definido como "E" ou "Ou".
Field2	Opcional	String	O nome de um segundo campo a ser pesquisado.
Value2	Opcional	String	O valor a comparar com o valor do campo especificado com Field2.
Teste2	Opcional	String	O tipo de comparação efetuada entre Campo2 e Valor2. Pode ser uma das mesmas cadeias de comparação que Test.

Cadeias de comparação

Cadeia de comparação	Descrição
"é igual a"	O valor de Campo é igual ao de Valor.
"é diferente de"	O valor de Campo é diferente do de Valor.
"é maior que"	O valor de Campo é maior que o de Valor.
"é maior ou igual a"	O valor de Campo é maior ou igual ao de Valor.
"é menor que"	O valor de Campo é menor que o de Valor.
"é menor ou igual a"	O valor de Campo é menor ou igual ao de Valor.
"está contido em"	O valor de Campo está contido em Valor.
"não está contido em"	O valor de Campo não está contido em Valor.
"contém"	Campo contém valor.
"não contém"	Campo não contém valor.
"contém exatamente"	Campo contém Value exatamente.

Valor de retorno

Variant

Exemplo

O exemplo a seguir determina se o valor de Duration é igual a 1 e exibe uma mensagem apropriada.

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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.