サブフォームによる最終更新日

Question

私が持っているすべてのサブフォームを含むレコードが変更されたときに、メインフォームに最終更新日時を保存しようとしています。

現在のところ、このコードはメインフォームのレコードに対してのみ機能しますが、サブフォームのレコードでは機能しません。サブフォームに最後に変更された日付/ユーザーを含めるにはどうすればよいですか？あなたが任意のサブフォームのデータが変更された場合、メインフォーム上LastModifiedの情報を更新すること

Private Sub Form_BeforeUpdate(Cancel As Integer) 
If Me.Dirty Then 
Me.LastModifiedDate = Now 
Me.LastModifiedUser = Environ$("username") 
End If 
End Sub 

Answer 1

を意味していますか？もしそうなら、私は更新イベントの前にサブフォームのようなコードを追加することを見て開始します：

Private Sub Form_BeforeUpdate(Cancel As Integer) 

    If Me.Dirty Then 
     Me.Parent.LastModifiedDate = Now 
     Me.Parent.LastModifiedUser = Environ$("username") 
    End If 

End Sub 

私はこのかかわらをテストしていない、とあなたがあれば、別のユーザーによって変更されたデータについてのメッセージを取得し始めるかもしれませんメインフォームレコードを保存する前に、複数のサブフォームレコードを更新します。