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 cadeias de caracteres de comparação a seguir.
Op Opcional String Como os critérios estabelecidos com Campo, Teste e Valor se relacionam 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 ser comparado com o valor do campo especificado com Field2.
Test2 Opcional String O tipo de comparação feita entre Field2 e Value2. Pode ser uma das mesmas cadeias de caracteres de comparação queTest.

Cadeias de caracteres 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

Variantes

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.