Microsoft Access组合框仅捕获查询前2列，后2列返回空值求助

问题原因 #

核心问题出在组合框的控件属性设置：

• Access组合框只会加载Column Count属性指定的列数，哪怕你的查询返回4列，若该属性值小于4，后面的列（索引2、3）不会被加载到控件中，自然返回空值
• 若只是Column Widths把后列设为0，仅会隐藏列但数据仍存在；你这里取不到数据，大概率是Column Count未设置正确

修复步骤 #

1. 打开表单设计视图，选中名为Item的组合框
2. 按F4打开属性窗口：
   • 切换到数据选项卡，确认Row Source是你写的UNION查询，单独运行该查询验证Description和Unit Price列有非空数据，排除查询本身问题
   • 切换到格式选项卡：
     • 将Column Count修改为4（对应查询返回的4列数据）
     • 调整Column Widths，比如设为2cm;0cm;0cm;0cm（第一列显示名称，后列隐藏但不影响数据获取）
3. 保存表单，重新测试VBA代码

相关代码格式化 #

你的SQL查询逻辑正确：

SELECT [Product Name] AS Name, 'Products' AS Type, Description AS Description, 
Price AS [Unit Price] FROM Products
UNION ALL
SELECT [Service Name] AS Name, 'Services' AS Type, Description AS Description, 
[Unit Price] FROM Services;

VBA代码逻辑无问题，修复组合框属性后即可正常获取数据：

Private Sub Item_Click()
    Dim selectedItem As String
    Dim selectedDescription As String
    
    Debug.Print Me.Item.Column(0) ' Print the name
    Debug.Print Me.Item.Column(1) ' Print the type
    Debug.Print Me.Item.Column(2) ' Print the description
    Debug.Print Me.Item.Column(3) ' Print the price
    
    selectedItem = Me.Item.Value
    selectedDescription = Me.Item.Column(2)

    If Not IsNull(selectedDescription) Then
        Me.Description.Value = selectedDescription
    Else
        Me.Description.Value = "Description not available"
    End If
End Sub

内容的提问来源于stack exchange，提问作者Another random out there