如何基于另一表单的用户选择为VBA变量赋值？

问题根源 #

acDialog模式未生效的核心原因是目标表单（Form2）未设置弹出+独占属性，导致调用代码无法暂停；额外添加的MsgBox会阻塞Form2的操作，进一步加剧问题。

分步解决 #

1. 配置Form2的窗口属性 #

打开Form2的设计视图，右键表单空白处打开属性窗口：

• 切换到「格式」标签，设置弹出方式 = 是
• 切换到「其他」标签，设置独占方式 = 是
  只有同时开启这两个属性，acDialog才能让Form1的代码暂停，直到Form2关闭。

2. 给Form2添加选择确认按钮 #

在Form2中添加一个按钮（命名为cmdConfirm），绑定如下点击事件代码：

Private Sub cmdConfirm_Click()
    ' 用户确认选择后关闭表单，触发Form1代码继续执行
    DoCmd.Close acForm, Me.Name
End Sub

3. 优化Form1的按钮代码 #

移除干扰操作的MsgBox，调整代码以正确获取选中值：

' 在Form1的按钮事件中定义变量
Dim EmailAddress As String

' 以对话框模式打开Form2，代码会暂停至Form2关闭
DoCmd.OpenForm "Select Email Contact", acFormDS, , "[Matter Contacts].[Matter Number] =" & Matternumber, acFormReadOnly, acDialog

' 检查Form2是否正常关闭，避免用户直接关闭导致报错
If IsLoaded("Select Email Contact") Then
    ' 将选中行的邮箱地址赋值给变量
    EmailAddress = Forms![Select Email Contact]!Email
    
    ' 此处添加后续使用EmailAddress的业务代码
    ' 示例：MsgBox "选中的邮箱：" & EmailAddress
End If

4. 处理未选择的边界情况 #

若用户未选择任何联系人直接关闭Form2，可添加判断避免报错：

If IsLoaded("Select Email Contact") Then
    ' 检查是否有选中记录
    With Forms![Select Email Contact]
        If .RecordsetClone.RecordCount > 0 Then
            EmailAddress = !Email
            MsgBox "选中的邮箱：" & EmailAddress
        Else
            MsgBox "未选择任何联系人"
        End If
    End With
End If

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