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

ник: Йожык
Во первых, можно вводить в поле через запятую

Во вторых значения, введенные в поле через запятую можно преобразовать в массив
с помощью функции SPLIT([string], [delimiter])

В третьих можно в цикле обработать элементы полученного массива, в частности, обрамить апострофами или двойными кавычками; и в итоге получить необходимую конструкцию IN(1;2;3)

---
Или вам сразу код написать?

Sub splitstr() Dim ar As Variant, i&, str_In$, s$ s = "один, два, три, четыре, пять" ar = Split(s, ",") For i = 0 To UBound(ar)     str_In = str_In & ",'" & Trim(ar(i)) & "'" Next i Debug.Print "IN (" & Mid(str_In, 2) & ")" ' получаем: IN ('один','два','три','четыре','пять') End Sub