Многозначные поля - Поиск фильтра Доступ

Question

После обширных исследований мне еще предстоит найти ответ на мою проблему. Мне сложно провести поле со списком «Мульти-значение». Я хотел бы иметь возможность добавить это многозначное поле со списком в мою форму поиска. Но мой код, похоже, не работает. Мои исследования показывают, что данные многозначных полей хранятся где-то в другом месте. Вот мой код, я надеюсь, что смогу войти в правильное направление.

Например, поле «Цвет» представляет собой всплывающее окно с несколькими значениями: красный, синий, желтый Вы можете выбрать несколько вариантов, чтобы это поле отличалось от других полей. Этот код отлично подходит для всех моих других полей. Пожалуйста, дай мне знать, что ты думаешь. Благодаря

If Nz(Me.Color) <> "" Then 
strWhere = strWhere & " AND " & "tblFlower.Color = '" & Me.Color & "'" 
End If 

Answer 1

Если я хорошо понимаю, что вы говорите о ListBox, а не ComboBox.

Вам нужно перебирать выбранных элементов и добавить их в ИНЕКЕ:

Dim ctl  As ListBox 
Dim varItem As Variant 

Set ctl = Me.Color 

If ctl.ItemsSelected.Count >= 1 Then 
    'write begining of strWhere clause 
    strWhere = strWhere & " AND tblFlower.Color IN(" 

    'iterate throught selected items to add them to the list) 
    For Each varItem In ctl.ItemsSelected 
     strWhere = strWhere & "'" & ctl.ItemData(varItem) & "'," 
    Next varItem 

    'remove last comma and close parentheses 
    strWhere = Left(strWhere, Len(strWhere) - 1) 
    strWhere = strWhere & ")" 
End If 

это должно добавить «И tblFlower.Color IN („красный“,„желтый“)» в строку strWhere, если вы выбрали эти 2 цвета.

EDIT: для MultiSelect ComboBox

Значение ComboBox хранится в массиве. Вам необходимо пройти итерацию по этому массиву:

Dim strWhere As String 
Dim i   As Integer 

'first control if values have been selected 
'then loop through array 
If IsArray(Me.Color.Value) Then 

    'write begining of strWhere clause 
    strWhere = strWhere & " AND tblFlower.Color IN(" 

    For i = 0 To UBound(Me.Color.Value) 
     strWhere = strWhere & "'" & Me.Color.Value(i) & "'," 
    Next i 

    'remove last comma and close parentheses 
    strWhere = Left(strWhere, Len(strWhere) - 1) & ")" 

End If