Access连续窗体填充其他窗体控件代码失效及MsgBox不弹出问题咨询

问题原因定位 #

你遇到的代码不生效、MsgBox无法触发的核心原因是赋值语句触发了运行时错误，VBA的错误捕获设置如果未开启显式提示，会直接终止当前事件过程，导致后续代码（包括你写的MsgBox）无法执行。

解决方案 #

第一步：开启错误提示定位具体问题 #

打开VBA编辑器，依次点击「工具」→「选项」→「通用」选项卡，错误捕获选择「遇到错误时中断」，重新运行代码即可看到具体报错信息（比如找不到窗体/控件、数据类型不匹配等）。

第二步：常见问题排查&修正 #

• 确认窗体、控件的实际名称属性和代码中拼写完全一致，不要混淆控件标题和名称：
  • 校验主窗体名称是否为MainForm、主窗体目标控件名称是否为Search、当前连续窗体的文本框名称是否为textboxform2
  • 名称包含空格、特殊字符时必须加方括号包裹，比如Forms![主窗体]![搜索框]
• 确认赋值时MainForm处于打开/隐藏状态，关闭状态下访问Forms!MainForm会直接报错
• 如果Search是组合框，确保textboxform2的值和组合框行来源的绑定列数据类型匹配，不要直接传入显示列的值

第三步：带错误捕获的修正代码 #

Private Sub Übernehmen_Button_Click()
    On Error GoTo ErrHandler
    ' 校验主窗体是否已加载
    If CurrentProject.AllForms("MainForm").IsLoaded Then
        Forms!MainForm!Search.Value = Me!textboxform2.Value
        MsgBox "赋值完成"
    Else
        MsgBox "主窗体未打开，无法回填数据"
    End If
    Exit Sub
ErrHandler:
    MsgBox "错误：" & Err.Description & vbCrLf & "错误码：" & Err.Number
End Sub

补充说明 #

你提供的第二段代码可正常运行，是因为运行时主窗体处于打开状态，且涉及的控件名称、数据类型均匹配，无触发错误的场景。

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