MS访问多选组合框中选择所有/无(MS Access Multi-select Combo Box

我有一个连接到SharePoint场窗体上的组合框，组合框填入正确的但是我有困难想添加VBA代码来选择所有的选项或取消选择所有选项。

随着标准的组合框，您可以使用：

cmbBox1.value = ""

并且将重置场。 同样的事情可以与具有然而多选启用该扔的错误列表框来完成，“这种控制是只读的，不能被修改”，与具有因为查找的多选组合框。

我已经做了一些搜索但似乎没有人有其他一个真正的答案，而不是使用一个列表框来代替，而不是这里的解决方案。

有没有人与这些领域的一个工作，知道如何选择所有使用VBA的选项？

下面是描述这种类型的字段的链接，但它并不讨论如何与它使用VBA交互- http://office.microsoft.com/en-us/access-help/use-a-list-that-stores-多值-HA010031117.aspx 。

更新：

已经有关于现场的我被描述，所以我增加了一些屏幕截图显示一个下拉框，允许多选，列表框，允许多个选择和组合框的选项中添加的区别类型有些混乱。

第一场我被描述：

第二个列表框：

最后组合框：

这些图像可视化中描述的问题。 正如你可以看到有一些需要选择或不选择多个复选框。 通常我不会创建一个领域像这一点，但如上文所述，这是访问如何解释从SharePoint的组合框，允许多项选择。

Answer 1:

一吨搜索和反复试验后，我想通了。

要取消选择所有的复选框是

cmbBox1.Value = Array()

所以用这个信息，我计算过，选择他们必须在一个数组项。 创建与所有那些在组合框中，然后设置组合框等于阵列将选择的所有项目的项目的数组。

我用基本循环设定数组的每个元素

Dim SelVals(), i
ReDim SelVals(0 to cmbBox1.ListCount - 1)
For i = 0 to cmbBox1.ListCount - 1
     SelVals(i) = cmbBox1.Column(1,i)
Next i
cmbBox1.Value = SelVals

显然，那么你不仅限于使用的全部内容 - 你可以指定任何阵列和那些会为所选值。

Answer 2:

http://msdn.microsoft.com/en-us/library/office/aa140084(v=office.10).aspx我beleive这包括你问

文章来源: MS Access Multi-select Combo Box Select All/None