使用子表单访问上次修改日期

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

不过我还没有对此进行测试，如果您在保存主表单记录之前更新多个子表单记录，您可能会开始收到有关数据已被其他用户更改的消息。