Application.ProjectBeforeAssignmentChange-Ereignis (Project)

Tritt ein, bevor der Benutzer den Wert eines Zuordnungsfelds ändert.

Syntax

Ausdruck. ProjectBeforeAssignmentChange( _asg_, _Field_, _NewVal_, _Cancel_ )

expression Eine Variable, die ein Application-Objekt darstellt.

Parameter

Name Erforderlich/Optional Datentyp Beschreibung
asg Erforderlich Assignment Die Zuordnung, deren Feld geändert wird.
Field Erforderlich PjAssignmentField Das Feld geändert wird. Wenn mehr als ein Feld vom Benutzer geändert wird, wird das Ereignis für alle geänderten Felder ausgelöst. Eine der folgenden PjAssignmentField -Konstanten kann sein.
NewVal Erforderlich Variant Der neue Wert für das mit Field angegebene Feld.
Cancel Erforderlich Boolean False, Wenn das Ereignis auftritt. Wenn die Ereignisprozedur dieses Argument auf True festgelegt wird, wird der Wert für das mit Field angegebene Feld nicht geändert werden.

HinwBemerkungeneise

Projektereignisse treten nicht auf, wenn das Projekt in ein anderes Dokument oder eine andere Anwendung eingebettet ist.

The ProjectBeforeAssignmentChange event doesn't occur when timescaled data changes, when an entire resource or task row is pasted, when an assignment is changed as the result of a drag-and-drop operation in the Resource Usage view, during resource pool operations, when inserting or removing a subproject, or when changes have been made using a custom form. Weitere Informationen und Beispielcode zum Erstellen und Testen eines Ereignishandlers finden Sie unter Verwenden von Ereignissen mit Anwendungs- und Projektobjekten.

Beispiel

Im folgenden Beispiel wird untersucht neue ressourcenzuordnungen und storniert sie, wenn sie für die angegebene Ressource sind. Dieses Beispiel erfordert ein neues Klassenmodul und von zusätzlichem Code dafür wirksam.

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

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.