как передать из списка в форме в запрос несколько значений этого списка для того , что бы отфильтровать в запросе данные, по результату выделения в форме.

Расшифруйте, пожалуйста, 399963 сообщение.Я не знаю как найти это свойство, и по справке никак не докопаюсь.:-(
Это свойство у моего списка?
запрос в режиме SQL выгладит так:

SELECT ShopManagerSpecialize.CodeTMSpecialize, TradeMark.TradeMarkR
FROM TradeMark INNER JOIN ((ShopInfo INNER JOIN ShopManager ON ShopInfo.CodeSI = ShopManager.CodeSI) INNER JOIN ShopManagerSpecialize ON ShopManager.CodeShM = ShopManagerSpecialize.CodeShM) ON TradeMark.CodeTM = ShopManagerSpecialize.CodeTMSpecialize
WHERE (((ShopManagerSpecialize.CodeTMSpecialize) Like [Forms]![formaFIOsellerALL]![choiceTM]));

запрос открывается отчетом.Отчет открывается формой, в которой есть только этот список : (поле choiceTM).

Private Sub ChoiceTM_AfterUpdate()
On Error GoTo Err_ChoiceTM_AfterUpdate

Dim stDocName As String

stDocName = "reportFIOsellerALL"
DoCmd.OpenReport stDocName, acPreview

Exit_ChoiceTM_AfterUpdate:
Exit Sub

Err_ChoiceTM_AfterUpdate:
'MsgBox Err.Description
Resume Exit_ChoiceTM_AfterUpdate
End Sub

Когда я вместо списка делал поле со списком, и соотвественно его подставлял в в запрос, то результат выдавался, но только для одного выбранного значения, а мне к несчастью, нужно чтобы отчет выдавал результат нескольких значений списка choiceTM.

а как это сделать- собрать строку в where?
у листбокса имя ChoiceTM.
Куда вставлять Ваш код?
я так понимаю, что вот в этом месте что то должно поменяться?
WHERE (((ShopManagerSpecialize.CodeTMSpecialize) Like [Forms]![formaFIOsellerALL]![choiceTM]));

Спасибо всем за участие в этой проблеме!
И помогите сделать наверное последниый шаг %-\

сейчас у меня на кнопке, в форме которая вызывает отчет,благодаря вам, висит вот этот код:

Private Sub Кнопка9_Click()
Dim lb As ListBox
Dim strWhere As String
Dim strCriteria As String
Dim stDocName As String
Dim i As Long

Set lb = Me.[ChoiceTM]
If lb.ItemsSelected.Count <> 0 Then

strCriteria = "ShopManagerSpecialize.CodeTMSpecialize Like '" '
strWhere = strCriteria
For i = 0 To lb.ListCount - 1
If lb.Selected(i) Then
If strWhere = strCriteria Then
strWhere = strWhere & lb.Column(0, i) & "'"
Else
strWhere = strWhere & " OR " & strCriteria & lb.Column(0, i) & "'"
End If
End If
Next
MsgBox strWhere


End If
On Error GoTo Err_ChoiceTM_L
stDocName = "reportFIOsellerALL"
DoCmd.OpenReport stDocName, acPreview

Exit_ChoiceTM_L:
Exit Sub

Err_ChoiceTM_L:
MsgBox Err.Description
Resume Exit_ChoiceTM_L
End Sub

Отчет использует запрос, который я собрал в конструкторе, и чтобы его здесь показать, я его представил в виде SQL.

SELECT ShopManagerSpecialize.CodeTMSpecialize, TradeMark.TradeMarkR
FROM TradeMark INNER JOIN ((ShopInfo INNER JOIN ShopManager ON ShopInfo.CodeSI = ShopManager.CodeSI) INNER JOIN ShopManagerSpecialize ON ShopManager.CodeShM = ShopManagerSpecialize.CodeShM) ON TradeMark.CodeTM = ShopManagerSpecialize.CodeTMSpecialize
WHERE (((ShopManagerSpecialize.CodeTMSpecialize) Like '6' Or (ShopManagerSpecialize.CodeTMSpecialize) Like '16'));

в данном примере я подставил просто два числа 6 и 16 чтобы мне самому было понятнее как пишется условие отбора. Но вопрос вот в чем: я уже пробовал подставлять так:

SELECT ShopManagerSpecialize.CodeTMSpecialize, TradeMark.TradeMarkR
FROM TradeMark INNER JOIN ((ShopInfo INNER JOIN ShopManager ON ShopInfo.CodeSI = ShopManager.CodeSI) INNER JOIN ShopManagerSpecialize ON ShopManager.CodeShM = ShopManagerSpecialize.CodeShM) ON TradeMark.CodeTM = ShopManagerSpecialize.CodeTMSpecialize
WHERE ('strWhere');
с вариантами скобок, ковычек :-(, но похоже, что при таком подходе, данные не подставляются, а в WHERE используетсся просто само слово strWhere, а не то что эта переменная должна нести в себе.

вот что собирается при выборе двух значений из списка "ShopManagerSpecialize.CodeTMSpecialize Like '6' OR ShopManagerSpecialize.CodeTMSpecialize Like '16'" после нажатия кнопки в форме, но еще раз повторюсь, похоже что эта строка в запрос не передается.

напишите пожалуйста что куда поставить исходя из моего примера- никак не соображу сам :-((

прошу прощения за то, что торможу, но вот куда конкретно вписать ваш пример в моем запросе???:

В этом примере составляется некий стринг:

strWhere = strWhere & ...

Точно таким же образом надо этот стринг запихать в селект. Не имя его, а сам стринг.

strSelect = ... & strWhere

SELECT ShopManagerSpecialize.CodeTMSpecialize, TradeMark.TradeMarkR
FROM TradeMark INNER JOIN ((ShopInfo INNER JOIN ShopManager ON ShopInfo.CodeSI = ShopManager.CodeSI) INNER JOIN ShopManagerSpecialize ON ShopManager.CodeShM = ShopManagerSpecialize.CodeShM) ON TradeMark.CodeTM = ShopManagerSpecialize.CodeTMSpecialize
WHERE ('strWhere');
с вариантами скобок, ковычек :-(, но похоже, что при таком подходе, данные не подставляются, а в WHERE используетсся просто само слово strWhere, а не то что эта переменная должна нести в себе.

но вот именно что как и где я и не могу дотумкать :-(((
Пожалуйста, впешите в пример моего запроса правильную строку подстановки фильтра выбранного из списка.