从“访问”列表框列中获取非重复值

Question

在Access 2016中，我有一个单列多选列表框：-

Item 1
Item 1
Item 2
item 3
Item 3

在VBA中，有一种方法可以删除所选行中的重复项，并在消息框中显示其余值。因此，将从上面的数据中显示以下值（假设选中了所有行）：-

Item 1
Item 2
item 3

Answer 1

使用字典并在添加新项之前检查重复项

Dim dict As Object: Set dict = CreateObject("Scripting.Dictionary")
For lngRow = 0 To ListBox.ListCount - 1
    If .Selected(lngRow) Then
        If Not dict.exists(ListBox.Column(0, lngRow)) Then
            x.Add ListBox.Column(0, lngRow), ""
        End If
Next

For Each x In dict.keys
    Str = Str & x & vbNewLine
Next
MsgBox Str