使用子窗体访问上次修改日期

Question

我试图让一个代码在包含所有子窗体的记录中进行更改时，将最后修改日期/用户保存在主窗体中。

目前，此代码只适用于主窗体中的记录，但不适用于子窗体中的记录。我将如何包含子表单的最后修改日期/用户？

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

Answer 1

你的意思是你要更新的主要形式，如果任何子窗体的数据变化对LastModified信息？如果是的话，我会通过看添加类似的代码子窗体的更新前的事件开始：

Private Sub Form_BeforeUpdate(Cancel As Integer) 

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

End Sub 

我没有，虽然进行了测试，你可能会开始获得有关数据消息被其他用户已改变，如果你在保存主窗体记录之前更新多个子窗体记录。