MS Access组合框点击列表项无响应问题求助

兄弟，太懂你找了两天解决方案的崩溃感——Access的组合框有时候就是会搞这种莫名其妙的幺蛾子！咱们一步步拆解你的问题，把这个坑填上：

首先排查核心属性配置问题 #

你的组合框属性里藏着几个可能的隐患：

• Control Source设置错误：你写的"=[tblDivisions]![Division]"是直接引用表字段，但如果你的表单没有绑定到tblDivisions，这种写法会失效。正确的做法是：
  • 如果表单绑定了tblDivisions，直接写Division就行（不用带表名）；
  • 如果是未绑定表单，直接把Control Source留空，之后用事件手动处理选中值。
• Row Source建议用明确的查询：直接写tblDivisions会把表的所有列都拉进来，可能导致绑定列混乱。改成SELECT Division FROM tblDivisions ORDER BY Division，只取你需要的列。
• 确认Bound Column和Column Count：这俩是关键！Column Count设为1（因为你只显示Division），Bound Column也设为1，确保选中的项能正确映射到值。

修正你的VBA代码逻辑 #

你的代码里有个致命的错误：

Private Sub DivisionDDL_Click()
    Me.DivisionDDL.Requery ' 这行是罪魁祸首！
    MsgBox DivisionDDL.List(DivisionDDL.ListIndex)
End Sub

点击组合框选项时执行Requery，会直接刷新整个下拉列表，刚选中的项瞬间被重置，自然看不到任何变化！把这个Click事件删掉，换成靠谱的AfterUpdate事件。

给你一套修正后的完整代码：

Option Compare Database

Private Sub Form2_Load()
    ' 明确指定下拉列表的数据源，只取需要的列
    Me.DivisionDDL.RowSource = "SELECT Division FROM tblDivisions ORDER BY Division"
    Me.DivisionDDL.ColumnCount = 1
    Me.DivisionDDL.BoundColumn = 1
    
    ' 给组合框设置默认选中项（可选）
    If Me.DivisionDDL.ListCount > 0 Then
        Me.DivisionDDL.Value = Me.DivisionDDL.ItemData(0)
        Call DivisionDDL_AfterUpdate ' 触发一次默认选中的逻辑
    End If
End Sub

Private Sub DivisionDDL_AfterUpdate()
    ' 这里处理选中后的逻辑，比如提示选中内容或更新其他控件
    MsgBox "成功选中：" & Me.DivisionDDL.Value
    
    ' 如果是绑定表单，Access会自动把选中值写入Control Source指定的字段，不用额外代码
    ' 如果是未绑定表单，在这里把值存到变量或者更新你需要的地方
End Sub

最后排查其他潜在问题 #

• 确保组合框的Enabled属性设为Yes（Locked是No你已经设置了，这个没问题）；
• 检查表单有没有其他代码干扰，比如Form_Current事件里会不会重置组合框的值；
• 如果是绑定表单，确认表单的记录源确实包含Division字段。

按照上面的步骤改完，你的组合框应该就能正常响应点击了！

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