在记录集更新中引用表单名称

Question

我有一个Audit函数，每次发生Add，Edit或Delete时都会将记录追加到Audit表中。它附加的部分信息来自子表单中的控件。

这会导致问题，因为一个子表单可能有多个父表单。出于这个原因，我需要识别父表单名称，因为它将更改几个控件的名称。

varParent = Screen.ActiveForm.Name
Select Case UserAction
    Case "EDIT"
        For Each ctl In Screen.ActiveForm.Controls
            If ctl.Tag = "Audit" Then
                If Nz(ctl.Value) <> Nz(ctl.OldValue) Then
                    With rst
                        .AddNew
                        ![Record_ID] = Forms! & varParent & .SubFormName.Record_ID.Value
.........

我知道最后一行绝对不正确，但我甚至不知道从哪里开始。也许更容易做一些if-then案例并说明varParent = X然后专门设置该值。

我对这个解决方案唯一关心的是它会花费更多的时间。帮助