点击Append按钮时如何将子表单text456值传递至主表单text123？

这个场景在Access开发里太常见了，我帮你梳理下具体的实现步骤，确保能顺利把子表单的text456值传到主表单的text123里：

核心思路 #

本质就是在子表单的Append按钮点击事件中，直接引用主表单的控件并赋值。根据子表单的打开方式（弹窗式/嵌入式子窗体），引用方式会略有不同，下面分别说明：

情况1：子表单是弹窗式窗体（点击text123弹出的独立窗体） #

假设你的主表单名为frmMain，子弹窗表单名为frmSub，直接给Append按钮添加VBA代码即可：

Private Sub cmdAppend_Click()
    ' 先验证主表单是否处于加载状态，防止报错
    If CurrentProject.AllForms("frmMain").IsLoaded Then
        ' 把text456的值赋值给主表单的text123
        Forms("frmMain").text123.Value = Me.text456.Value
        
        ' 可选：赋值完成后关闭子表单
        DoCmd.Close acForm, Me.Name
    Else
        MsgBox "主表单未打开，无法完成值传递！"
    End If
End Sub

情况2：子表单是主表单内的嵌入式子窗体 #

如果子表单是嵌入在主表单里的子窗体控件（比如主表单上有个名为frmSubControl的子窗体控件），那引用主表单的方式要改成Me.Parent：

Private Sub cmdAppend_Click()
    ' 直接通过Parent属性访问主表单控件
    Me.Parent.text123.Value = Me.text456.Value
End Sub

注意事项 #

• 确保控件名称完全匹配：主表单的文本框是text123，子表单的是text456，代码里别写错名称，不然会触发“找不到控件”的错误。
• 弹窗式表单如果是模态打开的，主表单会被锁定，但不影响赋值操作；如果是非模态，要确保主表单没有被关闭。
• 如果你已经实现了cmb1选择后填充text456的逻辑，那上面的代码直接用就行，不需要额外修改这部分。

内容的提问来源于stack exchange，提问作者cookiemonster