在VBA 中设置multiselect值时报错:2248, 不能将数值指定给这个对象

doli_cd

想在VBA中设置列表框的multiselect值,代码如下
If ch = True Then
        Me.chkljg.MultiSelect = 0
    Else
        froms("test").Controls("chkljg").MultiSelect = 1
End If

两种引用方式都试了，ACCESS2000和ACCESS2003都试了，但都报错:2248, 不能将数值指定给这个对象，请哪位指点一下。

ui

检查框有MultiSelect这个属性吗,是否只能在属性表设,不能在代码中改

doli_cd

MultiSelect 属性
参阅应用于示例特性使用 MultiSelect 属性可以指定用户是否能够在窗体的列表框中使用多重选择以及如何进行多重选择。Byte 型，可读写。

expression.MultiSelect
expression      必需。返回“应用于”列表中的一个对象的表达式。

说明
MultiSelect 属性使用以下设置：

设置 Visual Basic 说明
无 0 （默认值）不允许多重选择。
简单 1 通过单击鼠标或按空格键，可允许或禁止多重选择。
展开的 2 可以按住 Shift，然后单击各项目以进行多重选择；也可以按住 Shift，从前面的选择项按箭头键将选择范围扩展至当前项；也可以通过拖动鼠标进行选择；而按住 Ctrl 并单击项目可以选择或取消选择该项目。


注释  您可以使用列表框的属性表、宏或 Visual Basic 来设置 MultiSelect 属性。

该属性只能在窗体“设计”视图中进行设计。

使用 ListIndex 属性可以返回所选项目的索引编号。当 MultiSelect 属性设为“展开的”或“简单”时，可以使用列表框的 Selected 属性或 ItemsSelected 集合来确定所选的项目。此外，当 MultiSelect 属性设为“展开的”或“简单”时，列表框控件的值将始终为 Null。

如果 MultiSelect 属性设为“展开的”，重新查询列表框将会清除用户的所有选择。

示例
若要返回“订单输入”窗体上“国家/地区”列表框的 MultiSelect 属性值，可以使用下面的示例：

Dim b As Byte
b = Forms("Order Entry").Controls("Country").MultiSelect


若要设置 MultiSelect 属性，可以使用下面的示例：

Forms("Order Entry").Controls("Country").MultiSelect = 2 ' Extended.

ui

chkljg 是列表框啊
这个属性不能用程序修改
帮助里有写啊
该属性只能在窗体“设计”视图中进行设计。

doli_cd

懂了,谢谢