Evento Application.ProjectBeforeAssignmentChange (Project)

Ocorre antes que o usuário altere o valor de um campo de atribuição.

Sintaxe

expressão. ProjectBeforeAssignmentChange( _asg_, _Field_, _NewVal_, _Cancel_ )

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

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
asg	Obrigatório	Atribuição	A atribuição cujo campo está sendo alterado.
Field	Obrigatório	PjAssignmentField	O campo está sendo alterado. Se mais de um campo for alterado pelo usuário, o evento é disparado para cada campo alterado. Pode ser uma das seguintes constantes PjAssignmentField.
NewVal	Obrigatório	Variante	O novo valor do campo especificado com Field.
Cancel	Obrigatório	Boolean	False quando o evento ocorre. Se o procedimento de evento define este argumento como True, o valor do campo especificado com Field não é alterado.

Comentários

Eventos de projeto não ocorrem quando o projeto está inserido em outro documento ou aplicativo.

O evento ProjectBeforeAssignmentChange não ocorre quando os dados de escala de tempo são alterados, quando uma linha inteira de recurso ou tarefa é colada, quando uma atribuição é alterada como resultado de uma operação de arrastar e soltar no modo de exibição Uso de recursos, durante operações de pool de recursos, durante a inserção ou remoção de um subprojeto ou quando são feitas alterações usando um formulário personalizado. Para obter mais informações e código de exemplo para a criação e teste de um manipulador de eventos, consulteUsando eventos com objetos de aplicativo e de projeto.

Exemplo

O exemplo a seguir examina novas atribuições de recursos e as cancela se elas forem aplicadas ao recurso especificado. Este exemplo requer um novo módulo de classe e código adicional para que ele tenha um efeito.

Private Sub App_ProjectBeforeAssignmentChange(ByVal asg As Assignment, ByVal Field As PjAssignmentField, _ 
    ByVal NewVal As Variant, Cancel As Boolean) 
 
    If Field = pjAssignmentResourceName And NewVal = "Lisa Jones" Then 
        MsgBox "Lisa is no longer available for assignment!" 
        Cancel = True 
    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.