Application.ProjectBeforeAssignmentChange 事件 (Project)

在用户更改工作分配域的值之前发生。

语法

expression。 ProjectBeforeAssignmentChange( _asg_, _Field_, _NewVal_, _Cancel_ )

expression：表示 Application 对象的变量。

参数

名称	必需/可选	数据类型	说明
asg	必需	Assignment	其域值发生更改的工作分配。
Field	必需	PjAssignmentField	要更改的域。 如果用户更改了多个字段，每个域都会触发该事件。 可以是下列的 PjAssignmentField 常量之一。
NewVal	必需	Variant	与 字段 指定的字段的新值。
Cancel	必需	Boolean	假 的事件发生时。 如果事件过程将此参数设置为 True ， 字段 指定字段的值不会更改。

备注

当项目嵌入到另一个文档或应用程序中时，不会发生项目事件。

时间刻度数据发生更改，当粘贴整个资源或任务行，当分配更改为一个拖放操作在资源使用状况视图中，在资源池操作，当插入或删除子项目，或使用自定义窗体进行更改的结果时， ProjectBeforeAssignmentChange 事件将不会发生。 有关创建和测试事件处理程序的详细信息和示例代码，请参阅 使用 Application 和 Project 对象事件。

示例

下面的示例将检查新的资源分配，它们是否为指定的资源予以取消。 此示例需要一个新的类模块和附加代码以使它能够产生影响。

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 支持和反馈，获取有关如何接收支持和提供反馈的指南。