如何在MS Access表单中填充多值组合框并检测多值控件

我有一个含字符串类型字段的表，该字段在表参数中设为多值组合框。
表中的多值字段设置

我需用该表中独立记录集的值，自动填充基于此表的表单新记录。普通文本框和单选组合框的该功能已实现，代码如下：
普通文本框和单选组合框的代码

请问如何自动填充多值组合框？以及如何检测控件是否为多值组合框？

一、自动填充多值组合框 #

Access的多值字段默认以; （分号加空格）作为分隔符存储值，直接给组合框控件赋值符合格式的字符串即可完成填充，以下是两种常用实现方式：

1. 直接绑定记录集字段赋值 #

如果你的记录集已经包含目标多值字段（格式为值1; 值2; 值3），直接赋值给控件的Value属性：

Me.多值组合框控件名.Value = rs!你的多值字段名.Value

2. 数组转格式后赋值 #

如果数据源是普通数组或非标准格式的多值列表，先转换为Access认可的分隔格式再赋值：

' 示例：从数组生成多值字符串
Dim multiValues As Variant
multiValues = Array("选项1", "选项2", "选项3")
Me.多值组合框控件名.Value = Join(multiValues, "; ")

注意事项 #

• 确保组合框的Row Source与表多值字段的选项集合一致，否则赋值后可能无法匹配显示。
• 组合框的Multi Select属性需设置为Extended或Simple（设计视图控件属性面板可调整）。

二、检测控件是否为多值组合框 #

可以通过绑定字段属性或控件特性两种方式判断：

1. 基于绑定字段属性判断（绑定控件适用） #

如果控件绑定到表字段，直接读取字段的IsMultiValue属性：

Function IsMultiValueCombo(targetCtrl As Control) As Boolean
    If targetCtrl.ControlType = acComboBox Then
        If Not IsNull(targetCtrl.ControlSource) Then
            Dim targetFld As Field
            Set targetFld = CurrentDb.TableDefs("你的表名").Fields(targetCtrl.ControlSource)
            IsMultiValueCombo = targetFld.IsMultiValue
        End If
    End If
End Function

2. 基于控件特性判断（非绑定控件适用） #

多值组合框支持ItemsSelected集合，可通过错误捕获判断：

Function IsMultiValueCombo(targetCtrl As Control) As Boolean
    If targetCtrl.ControlType = acComboBox Then
        On Error Resume Next
        Dim tempCount As Integer
        tempCount = targetCtrl.ItemsSelected.Count
        If Err.Number = 0 Then
            IsMultiValueCombo = True
        End If
        On Error GoTo 0
    End If
End Function

调用示例 #

在表单填充逻辑中整合判断：

If IsMultiValueCombo(Me.目标控件) Then
    Me.目标控件.Value = rs!多值字段.Value
Else
    Me.目标控件.Value = rs!普通字段.Value
End If

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