Access对话框打开表单并填充文本框问题求助

我来帮你搞定这个问题——当你把表单改成对话框（模态）模式打开时，代码的执行顺序发生了关键变化，这就是导致赋值失败的核心原因。

问题根源 #

默认情况下，DoCmd.OpenForm是以非模态方式打开表单的，这意味着执行完OpenForm语句后，会立刻继续运行后面的Forms!subfrm_EA_COMMENT_ADD.txtUWI = Me.txtUWI赋值代码，这时候目标表单已经加载完成，赋值自然能成功。

但当你加上WindowMode:=acDialog改成模态对话框后，OpenForm语句会阻塞后续代码的执行，直到你手动关闭这个对话框表单。等对话框关闭后，表单已经从内存中卸载了，这时候再去访问Forms!subfrm_EA_COMMENT_ADD就会报错，因为这个对象已经不存在了。

正确的解决方法 #

我们可以通过OpenArgs参数传递值，让目标表单自己在加载时接收并赋值，具体步骤如下：

1. 修改触发按钮的VBA代码
   把原来的代码改成用OpenArgs传递txtUWI的值，同时指定对话框模式：

Private Sub test_Click()
    ' 用OpenArgs传递源表单的txtUWI值，以对话框模式打开目标表单
    DoCmd.OpenForm "subfrm_EA_COMMENT_ADD", WindowMode:=acDialog, OpenArgs:=Me.txtUWI
End Sub

2. 在目标表单的Load事件中接收参数
   打开subfrm_EA_COMMENT_ADD表单的设计视图，添加Form_Load事件代码，读取OpenArgs并赋值给文本框：

Private Sub Form_Load()
    ' 检查OpenArgs是否有值，避免空值报错
    If Not IsNull(Me.OpenArgs) Then
        Me.txtUWI = Me.OpenArgs
    End If
End Sub

额外排查要点 #

• 确认subfrm_EA_COMMENT_ADD是独立表单的名称，而不是父表单里的子表单控件名称。如果它是子表单控件，你需要打开它对应的源表单（比如控件的SourceObject属性值）。
• 检查txtUWI文本框的名称拼写是否完全一致，Access对对象名称的大小写不敏感，但拼写错误会直接导致找不到控件。
• 如果目标表单加载时可能被多次触发，也可以考虑在Form_Activate事件中处理，但Form_Load只会在表单首次加载时执行，更适合这个场景。

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