ник: 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, но это вы сами...