Método Application.MakeFieldEnterprise (Project)

Adiciona um campo personalizado local ao Project Server como campo personalizado da empresa.

Sintaxe

expression. MakeFieldEnterprise( _FieldID_, _FieldName_, _LookupTableName_ )

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

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
FieldID	Obrigatório	Long	Número de identificação do campo personalizado local. Use o método FieldNameToFieldConstant para obter o argumento FieldID.
FieldName	Obrigatório	String	Nome do campo personalizado da empresa a ser criado.
LookupTableName	Opcional	String	Nome da tabela de pesquisa a ser criada. O valor padrão é uma cadeia de caracteres vazia ("").

Valor de retorno

Boolean

Comentários

Quando o método MakeFieldEnterprise for concluída com êxito, Project mostra uma caixa de diálogo com a mensagem "o campo foi adicionado com êxito ao Project Server. Para exibir e usar o campo de empresa no projeto, você precisará sair e reiniciar o Project Professional."

O método MakeFieldEnterprise corresponde ao comando Adicionar campo empresa na caixa de diálogo Campos personalizados. O método está disponível somente no Project Professional. Project Professional deve estar conectado ao Project Server.

Exemplo

Para usar o exemplo a seguir, crie um campo personalizado local, de texto de tarefa, denominado LocalWithLUT2Enterprise. Adicione uma tabela de pesquisa do campo personalizado que tenha alguns valores.

Sub Local2Enterprise() 
 Dim localId As Long 
 localId = FieldNameToFieldConstant(FieldName:="LocalWithLUT2Enterprise") 
 
 MakeFieldEnterprise FieldID:=localId, FieldName:="NewTaskTextFromLocal", LookupTableName:="NewTaskTextLUTFromLocal" 
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.