Dim tmp As String, lst As Control, var As Variant

tmp = ""

Set lst = Me!result1
For Each var In lst.ItemsSelected
    If Len(tmp) >  0  Then tmp = tmp + " OR "
    tmp = tmp + "[Result]=" + CStr(lst.ItemData(var))
Next

SELECT t.id, t.ttt, Findid([id]) AS Flajok FROM t;

Public Function FindID(id As Long) As Boolean
Dim i As Long
For i =  1  To  1000 
 If mas(i) = id Then
    FindID = True
    Exit Function
 End If
Next i
End Function

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

Продолжая использовать сайт, вы даёте согласие на обработку файлов cookie, необходимых для работы сайта. Другие опции вы можете выбрать по своему усмотрению.

По нижеприведенным ссылкам мы можете ознакомиться с действующим на сайте пользовательским соглашением и политикой конфиденциальности.

Пользовательское соглашение
Политика конфиденциальности

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы