Событие Application.ProjectBeforeAssignmentChange (Project)

Статья
04/07/2023

Происходит до того, как пользователь изменит значение поля назначения.

Синтаксис

выражение. ProjectBeforeAssignmentChange( _asg_, _Field_, _NewVal_, _Cancel_ )

выражение: переменная, представляющая объект Application.

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Asg	Обязательный	Assignment	Назначение, поле которого изменяется.
Поле	Обязательный	PjAssignmentField	Изменяемые поля. Если пользователь изменяет несколько полей, событие активируется для каждого измененного поля. Может быть одной из следующих констант PjAssignmentField .
NewVal	Обязательный	Variant	Новое значение для поля, указанного в поле Поле.
Отмена	Обязательный	Boolean	Значение false при возникновении события. Если процедура события задает этому аргументу значение True, значение поля, указанного полем Field , не изменяется.

Замечания

События проекта не возникают, когда проект внедрен в другой документ или приложение.

Событие ProjectBeforeAssignmentChange не возникает при изменении времени данных, при вставке всего ресурса или строки задачи, при изменении назначения в результате операции перетаскивания в представлении "Использование ресурсов", при операциях пула ресурсов, при вставке или удалении подпроекта или при внесении изменений с помощью пользовательской формы. Дополнительные сведения и пример кода для создания и тестирования обработчика событий см. в разделе Использование событий с объектами приложений и проектов.

Пример

В следующем примере рассматриваются новые назначения ресурсов и их отменяются, если они относятся к указанному ресурсу. В этом примере требуется новый модуль класса и дополнительный код, чтобы он действовал.

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

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Поделиться через