Извлечение значений из всех колонок списка в одну строку в Access

[jamol]

Доброго времени суток! У меня такая задача: на форме расположен список у которого несколько колонок и мне надо, чтобы при двойном щелчке на нужную запись это запись вырезалась, значение всех колонок слились в одну символьную переменную и вставлялись на другой список. Целый день мучился так не смог решить эту задачу.

[R Dmitry]

Добрый день, jamol
можно так:

Private Sub Список0_DblClick(Cancel As Integer)
Dim i&, sTxt$
For i = 0 To Список0.ColumnCount - 1
sTxt = sTxt & Список0.Column(i, Список0.ListIndex)
Next
Список2.AddItem sTxt
CurrentDb.Execute "DELETE * FROM Таблица1 where Код=" & Список0.Column(0, Список0.ListIndex)
Список0.RowSource = Список0.RowSource
End Sub