Application.ProjectBeforeAssignmentChange イベント (Project)

割り当てフィールドの値を変更する前に発生します。

構文

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

expressionApplication オブジェクトを 表す変数。

パラメーター

名前	必須 / オプション	データ型	説明
asg	必須	Assignment	フィールドが変更される割り当てです。
Field	必須	PjAssignmentField	変更するフィールドです。 ユーザーが複数のフィールドを変更すると、変更するフィールドごとに、イベントがトリガーされます。 PjAssignmentField 定数は、次のいずれかをすることができます。
NewVal	必須	バリアント型 (Variant)	フィールド で指定されるフィールドの新しい値。
Cancel	必須	Boolean	False イベントが発生します。 イベント プロシージャでこの引数に 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 のサポートおよびフィードバックを参照してください。