Listbox в Access

[yura613]

Подскажите пожалуйсто как можно в Листбокс в Аксесе програмным путем закинуть данные больше чем в один столбик?

[alibek]

Можно.
Задай свойство Columns (или ColumnCount, не помню).

[yura613]

Пробовал через Columns. Получить содержимое из любого столбика могу, а вот наоборот в любой столбец чего закинуть не могу.

[alibek]

А как ты это делал?

[yura613]

провбовал так, но так работает только в Экселе

Код: Выделить всё

ListBox1.ColumnCount = 2

    ListBox1.AddItem "Item 1, Column 1"
    ListBox1.List(0, 1) = "Item 1, Column 2"
    ListBox1.AddItem "Item 2, Column 1"
    ListBox1.List(1, 1) = "Item 2, Column 2"


а данные из литбокса в Аксесе получаю таким образом

Код: Выделить всё


Set frm= Forms![Имя формы]
    With frm

        For I_col = 0 To !Список8.ColumnCount
       
            For I_row = 0 To !Список8.ListCount - 1

       
         txt =  !Список8.Column(I_col, I_row)

             msgbox txt

             Next I_row

        Next I_col

   End With

[alibek]

В Access содержимое задается RowSource, это может быть либо набор данных, либо строка с точкой с запятой в качестве разделителя.
Изменяй это свойство и обновляй список.

[yura613]

Спасибо, сделал так

Код: Выделить всё

Private Sub кнопка6_Click()
Dim s As String, s2 As String, f As String

Me.поле0.SetFocus
s = Me.поле0.Text

Me.поле2.SetFocus
s2 = Me.поле2.Text

f = s & ";" & s2
Me.Список4.RowSourceType = "Value List"
Me.Список4.ColumnCount = 2
Me.Список4.AddItem f

End Sub

вроде как работает. Если есть другие варианты то расскажиет, буду признателен