ms-access - 多选列表框问题

Question

我在将列表框变成多选列表框时遇到问题。我知道制作列表框多选的代码是:

[forms]![formname]![listboxname].multiselect=2

但是，当我在 Private Sub Form_Load() 中运行它时，我收到运行时错误“2448”，您无法为此对象分配值。

我想我不明白如何使列表框多选，但我很确定我了解如何在 VBA 中使用多选列表框。

任何有关如何使用上述代码实际将列表框更改为多选的帮助将不胜感激。

Answer 1

来自 Microsoft Office 属性 MultiSelect 帮助:

This property can be set only in form Design view.

在表单设计中设置此属性，不要尝试在代码中更改它。

使用 MultiSelect 的一些示例:

' Retrieve all selected values
Public Function ListBoxGetMultiSelect(ByVal rListBox As Access.ListBox) As String
    Dim v As Variant
    Dim vList As Variant
    vList = ""
    With rListBox
        For Each v In .ItemsSelected
            vList = vList & .Column(0, v) & vbCrLf
        Next
    End With
    ListBoxGetMultiSelect = vList
End Function

' clear all selected values
Public Sub ListBoxClearSelection(ByVal rListBox As Access.ListBox)
    Dim v As Variant
    With rListBox
        For Each v In .ItemsSelected
            .Selected(v) = False
        Next
        .Value = Null
    End With
End Sub