使用子窗體訪問上次修改日期

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 

我沒有，雖然進行了測試，你可能會開始獲得有關數據消息被其他用戶已改變，如果你在保存主窗體記錄之前更新多個子窗體記錄。