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

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

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

1 个答案: