请参阅ms-access中列表框中的多个选定项目

Question

如何在列表框中选择多个项目，然后参考我选择的项目？

Answer 1

您需要使用以下步骤的变体：

1. 在表单上创建一个列表框

2. 使用行来源填充列表框。

3. 转到其他标签，将multiselect属性更改为扩展

然后我使用了以下VBA

Option Compare Database
Private Item_IDs as string

Private Sub List_item_id_Click()
Dim i As Integer, count As Integer
Dim Item_IDs As String
count = 1
For i = 0 To Me.List_item_id.ListCount - 1
    If Me.List_item_id.Selected(i) = True Then
        Item_IDs = Item_IDs & ", " & Me.List_item_id.ItemData(i)
        count = count + 1
    End If
Next i
Item_IDs = Mid(Item_IDs, 3)
Debug.Print Item_IDs


End Sub

现在每次单击列表中的值时，它都会返回我选择的内容的逗号分隔值字符串（Item_IDs）。在VBA窗口中使用CTRL + G打开即时窗口并查看您的工作成果。

Answer 2

喜欢的东西。 。 。

Private Sub OKButton_Click()
      Dim Msg As String
      Dim i As Integer
      Msg = "You selected" & vbNewLine
      For i = 0 To ListBox1.ListCount - 1
          If ListBox1.Selected(i) Then
              Msg = Msg & ListBox1.List(i) & vbNewLine
          End If
      Next i
      MsgBox Msg
      Unload UserForm1
  End Sub