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

Question

我正在尝试使用一种代码，当在记录（包括我拥有的所有子表单）中进行更改时，将最后修改的 date/user 保存在主表单中。

目前，此代码仅适用于主窗体中的记录，但不适用于子窗体中的记录。我如何为子表单包含最后修改的 date/user？

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

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

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

Access Last Modified Date with subform

ms-access

vba

last-modified