как добавить выбранные значения из списка (Listbox с MultiSelect) в текстовое поле

Starling
Дата: 21.01.2012 13:02:42
как добавить выбранные значения из списка (Listbox с MultiSelect) в текстовое поле. Access 2007
Starling
Дата: 21.01.2012 13:04:44
Starling,

тема такая уже рассматривалась
http://www.sql.ru/forum/actualthread.aspx?tid=403391&hl=multiselect

только вот не знаю как сделать это поле
sdku
Дата: 21.01.2012 14:04:08
Starling,
Уточните-Вы что хотите в одном поле хранить несколько значений?
Starling
Дата: 21.01.2012 14:08:08
делаю множественный запрос, чтобы из листбокс добавлялось в текст бокс
вопрос проще, как реализовать следующую форму[url=]http://www.sql.ru/forum/actualfile.aspx?id=3861824[/url]
?????
Дата: 21.01.2012 15:05:56
Private Sub Кнопка3_Click()
    Debug.Print SelToStr(MyList, 1)
End Sub

Private Function SelToStr(sList, sCol%) As String
'Возвращает список из заданной (Col) колноки выбранных
'строк заданного листбокса (sList)
    Dim Item
    For Each Item In sList.ItemsSelected
        SelToStr = SelToStr & ";" & sList.Column(sCol, Item)
    Next Item
    SelToStr = Mid(SelToStr, 2)
End Function
Starling
Дата: 21.01.2012 15:54:33
?????,

а кнопка зачем?
qwerty112
Дата: 21.01.2012 16:01:56
Starling
?????,

а кнопка зачем?


рыдал
Starling
Дата: 21.01.2012 19:59:04
Есть еще предложения?
NickBell
Дата: 21.01.2012 21:50:38
Starling
Есть еще предложения?


Private Sub knopka_Click()
    Dim Item
    For Each Item In list.ItemsSelected
        Me.txt = Me.txt & ";" & list.Column(0, Item)
    Next Item
    Me.txt = Mid(Me.txt, 2)
End Sub


Уже было всё сказано выше, надо было просто подогнать под себя и вместо Debug.Print вывести значения в текстовое поле.
Guest33
Дата: 21.01.2012 21:52:33
А кнопка зачем?