Compartilhar via

Método Task.SetField (Project)

  • Artigo

Define um valor do campo personalizado de tarefa especificado.

Sintaxe

expressão. SetField( _FieldID_, _Value_ )

Expressão Uma variável que representa um objeto Task .

Parâmetros

Nome Obrigatório/Opcional Tipo de dados Descrição
FieldID Obrigatório Long Para um campo personalizado local pode ser uma das seguintes constantes PjField para campos personalizados de tarefa. Para um campo personalizado da empresa, use o método FieldNameToFieldConstant para obter o FieldID.
Value Obrigatório String O valor do campo.

Comentários

Você pode acessar campos personalizados do projeto por meio da propriedade ProjectSummaryTask.

Exemplo

O exemplo a seguir usa o método SetField e o método GetField junto com o FieldNameToFieldConstant e FieldConstantToFieldName métodos.

  1. Para usar o exemplo, use Project Web App para criar um campo personalizado de texto do projeto da empresa denominado TestEntProjText.

  2. Reinicie o Project Professional com um perfil do Project Server, para que ele inclua o novo campo personalizado.

  3. Crie um projeto com um valor para o campo TestEntProjText, usando a caixa de diálogo Informações do projeto.

  4. A macro TestEnterpriseProjectCF usa o método FieldNameToFieldConstant para localizar o número projectField, por exemplo, 190873618.

  5. A macro mostra o valor de número e o texto em uma caixa de mensagem, usando o método GetField.

  6. A macro obtém o nome do campo usando o método FieldConstantToFieldName, define um novo valor usando o método SetField e mostra o nome do campo e o valor novo em outra caixa de mensagem.

Sub TestEnterpriseProjectCF() 
    Dim projectField As Long 
    Dim projectFieldName As String 
    Dim message As String 
 
    projectField = FieldNameToFieldConstant("TestEntProjText", pjProject) 
 
    ' Show the enterprise project field number and old value. 
    message = "Enterprise project field number: " & projectField & vbCrLf 
    MsgBox message & ActiveProject.ProjectSummaryTask.GetField(projectField) 
 
    ActiveProject.ProjectSummaryTask.SetField FieldID:=projectField, Value:="This is a new value." 
 
    ' For a demonstration, get the field name from the field number, and verify the new value. 
    projectFieldName = FieldConstantToFieldName(projectField) 
    message = "New value for field: " & projectFieldName & vbCrLf 
    MsgBox message & ActiveProject.ProjectSummaryTask.GetField(projectField) 
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.