如何实现根据一个ComboBox的选择值填充另一个ComboBox？

我来帮你排查这个联动ComboBox无法加载数据的问题，下面是几个针对性的修复方案和排查点：

1. 强制刷新ComboBox的数据源 #

设置RowSource后，Access的非绑定ComboBox不会自动触发数据刷新，必须手动调用Requery方法才能加载新数据。修改你的代码，在设置RowSource后加上这一行：

Private Sub Combo746_Exit(Cancel As Integer)
    Dim strsql As String
    If (Me!Combo746.Value = "Category") Then
        Me.Combo750.Enabled = True
        Me.Combo750.Visible = True
        Me.Text748.Enabled = False
        Me.Text748.Visible = False
        Me.Combo750.SetFocus
        strsql = "Select [Category] FROM [dbo_CodesCategory]"
        Me!Combo750.RowSource = strsql
        Me.Combo750.Requery ' 新增：强制控件重新查询数据源
    Else
        ' 建议补充else逻辑：切换回文本框状态
        Me.Combo750.Enabled = False
        Me.Combo750.Visible = False
        Me.Text748.Enabled = True
        Me.Text748.Visible = True
    End If
End Sub

2. 更换更合适的事件触发时机 #

Exit事件可能在用户未确认选择就触发（比如按Tab键跳过控件），改用AfterUpdate事件会更可靠——这个事件仅在用户确认选择ComboBox选项后才执行，更适合处理联动逻辑：

Private Sub Combo746_AfterUpdate()
    Dim strsql As String
    If Me!Combo746.Value = "Category" Then
        Me.Combo750.Enabled = True
        Me.Combo750.Visible = True
        Me.Text748.Enabled = False
        Me.Text748.Visible = False
        strsql = "Select [Category] FROM [dbo_CodesCategory]"
        Me!Combo750.RowSource = strsql
        Me.Combo750.Requery
        Me.Combo750.SetFocus
    Else
        Me.Combo750.Enabled = False
        Me.Combo750.Visible = False
        Me.Text748.Enabled = True
        Me.Text748.Visible = True
    End If
End Sub

3. 验证SQL语句的有效性 #

先在Access的查询设计器中直接运行Select [Category] FROM [dbo_CodesCategory]，确认是否能返回数据：

• 如果查询无结果：检查表名dbo_CodesCategory是否拼写正确，或者链接表是否有权限访问后端数据
• 如果查询有结果：说明问题出在控件的属性或代码执行逻辑上

4. 检查ComboBox的核心属性 #

确保Combo750的RowSourceType属性设置为Table/Query（而非Value List），否则SQL语句无法生效。可以在设计视图中修改，或者在代码中强制设置：

Me.Combo750.RowSourceType = "Table/Query"

按照上面的步骤逐一排查，应该就能解决第二个ComboBox无法填充数据的问题了。

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