Access中引用下拉框的文本框无返回值，请求技术支援

我之前也碰到过Access这种自动修改控件来源语法的糟心事，咱们一步步来解决：

核心原因 #

Access的控件来源表达式引擎和VBA的语法解析逻辑不一样，你在VBE里能跑通的写法，放到控件来源里可能会被Access自动调整成不兼容的格式，导致无法正确取值。

最简便的解决方案：用相对引用 #

因为txtCM_ID和cmbCountry在同一个窗体上，完全不需要写全路径引用，直接把txtCM_ID的控件来源改成：

=cmbCountry.Column(0)

保存窗体后再打开试试——这个写法Access不会乱修改，而且表达式引擎能直接识别，立刻就能显示下拉框选中项的第一列（Column(0)）值。

检查下拉框的基础设置（很容易忽略！） #

如果还是没显示，先确认这两点：

• 下拉框cmbCountry的行来源确实包含ID列（也就是你要取的Column(0)），比如行来源是SELECT ID, CountryName FROM Countries;
• 下拉框的列数属性设置正确：如果行来源有2列，列数要设为2；如果要隐藏ID列，把列宽设为0cm;5cm（第一列宽度为0，用户看不到，但控件能读取到值）

更可靠的方案：用VBA事件赋值 #

如果你觉得控件来源的方式不稳定，改用VBA事件触发赋值更稳妥：

1. 打开窗体的设计视图，右键点击cmbCountry，选择事件生成器，进入VBA编辑器
2. 在cmbCountry_AfterUpdate事件里写：

Private Sub cmbCountry_AfterUpdate()
    ' 把下拉框的第一列值赋值给文本框
    Me.txtCM_ID.Value = Me.cmbCountry.Column(0)
End Sub

3. 再在Form_Load事件里加一段代码，确保窗体打开时就显示默认值：

Private Sub Form_Load()
    If Not IsNull(Me.cmbCountry.Value) Then
        Me.txtCM_ID.Value = Me.cmbCountry.Column(0)
    End If
End Sub

4. 最后清空txtCM_ID的控件来源属性，保存后测试即可。

为什么之前的写法失效？ #

你写的Forms![frm_ClientModel]!cmbCountry.Column(0)被Access改成=[Forms]![frm_ClientModel]![cmbCountry].[column](0)，这个写法在VBA里是合法的，但在Access的表达式引擎（控件来源属于表达式环境）里，这种全路径的属性调用方式会触发参数错误——因为表达式引擎对控件属性的引用规则和VBA不同，相对引用才是表达式环境的正确打开方式。

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