Форумы HiProg.com - MS ACCESS, VBA, VB

ник: osmor
Re: Условия отбора в sql-запросе Dim varItm As Variant
Dim ctl As Control
dim strIN as String
strIn = ""
Set ctl = me!список
For Each varItm In ctl.ItemsSelected
strIn = strIn & varItm & ","
Next varItm
currentdb.querydefs("Запрос").sql = "Select * from таблица where Поле IN (" & strIn & ")"

docmd.openquery "Запрос"

МОжно еще отреpать последную запятую в strIN, но это вы сами...