子窗体记录传递到主窗体

Public Sub SetParentFormctrls(ByVal frm As Form)
    '功能：将子窗体控件数据赋值给主窗体对应控件
    '示例：在子窗体的成为当前事件中写：call SetParentFormctrls(me.form)
    Dim ctrls As Controls
    Dim ctrl As Control
  
    Set ctrls = frm.Parent.Controls
    For Each ctrl In frm.Controls
        If ctrl.ControlType <> acLabel Then
            ctrls(ctrl.Name).Value = ctrl.Value
        End If
    Next
End Sub