Как отобразить несколько элементов со списком в одном текстовом поле?

Question

У меня есть комбо с включенным множественным выбором. Я создал новую форму и хочу отобразить выбранные поля со списком в текстовом поле. Я использую следующее для отображения фактических данных вместо ключа: =[MyComboBox].[Column](2), но он отображает только те данные, для которых в записи выбран ровно 1 элемент. Для записей, в которых в поле со списком выбрано несколько элементов, ничего не отображается.

Как отобразить все выбранные элементы в текстовом поле?

Answer 1

Используйте ListBox и создайте такую ​​функцию, как:

    Public Function GetSelectedItems(list As ListBox, Optional index as int = 0) As String
        Dim result As String

        For Each varItem In list.ItemsSelected
            result = result & "," & combo.Column(index)
        Next

        GetSelectedItems = Mid(result, 2)
    End Function

Назначьте результат этой функции в текстовое поле:

    Me.MyTextBox = GetSelectedItems(Me.MyComboBox, 2)