Проблема создания listBox

[basilio2010]

Доброго времени суток!
Прошу помощи у ЗНАТОКОВ для решения одной задачи:
Необходимо в списке отобразить данные таблицы Ассess по некому условию отбора (причем имя таблицы зависит от выбора пользователя с какими данными работать)
Пробывал в коде VBA:
1.
listBox1.RowSource = "SELECT поле1, поле2, поле3 FROM table WHERE поле1 = <условие>"
Но тут возникает проблема имя таблицы с которым работает VBA код формы может быть разным. Как заменить реальное имя на переменную которая содержит это имя? Все попытки с использованием & или через переменную recordset не увенчались успехом.
2.
Создавал двухмерный массив, который содержит выборку из таблицы, но при попытке присвоить этот массив в listBox1.RowSource возникает сообщение о несоответствии данных (RowSourceType = список данных)
Подскажите, пожалуйста, как выйти из данной ситуации?
Зарание спасибо!

[Teslenko_EA]

Здравствуйте basilio2010.
1. ответ на этот вопрос (рекомендацию) я разделю на две части:
а) для обслуживания объектов приложения максимально откажитесь от использования строчных выражений, используйте переменные и константы, это не только уменьшит нагрузку на VB(A) но и облегчит конструирование кода.

Dim sVar As String, iVar as Integer
Const sTABLE1 = "Table1", sTABLE2 = "Table2"
Const sCONST1 = "SELECT поле1, поле2, поле3 FROM ", sCONST2 = " WHERE поле1 = "

б) собирайте строчную переменную непосредственно перед присвоением, можно предварительно выполнить проверку подключаемой таблицы, примерно так:

if ... Then 
    sVar = sTABLE1 
ElseIf ... Then
    sVar = sTABLE2
...
Else
    ...
End If
sVar = sCONST1 + sVar + sCONST2 & iVar
listBox1.RowSource = sVar

2. действительно двухмерный массив не может быть подключен к списку с заданным типом источника строк - Таблица или запрос, установите тип - Список значений и задавайте не свойство ..RowSource =.., а ..List = <массив>, думаю у Вас всё получится.

Евгений.

[basilio2010]

Добрый день, Женя!
Огромное спасибо за Вашу очень содержательную подсказку и советы!
Все работает! Еще раз спасибо! И всяческих профессиональных УСПЕХОВ!!!!

[Dophin]

Евгений, здравствуйте.

Подскажите пожалуйста.

Есть двухмерный массив, есть листбокс.

Как именно присвоить листбоксу значения из массива?

При попытках применить .List ругается.

Sub nn()
Dim arr(1 To 3, 1 To 2)
Dim k As Long
Dim i
Dim j
For i = 1 To 3
For j = 1 To 2
k = k + 1
arr(i, j) = k
Next j
Next i
Form_Form.listbox.
End Sub

[Teslenko_EA]

Здравствуйте Dophin.
действительно контролы применяемые в А2003 не имеют свойства List, такой способ применим для контролов Microsoft Forms 2.0 который могут использоваться в формах MS Access

Dim arr(1 To 3, 1 To 2)
Dim k&, i%, j%
Dim s$ 'строчная переменная
With ListBox0 'вариант для контрола А2003
    .RowSourceType = "Value List" 'задается в свойствах контрола
    .ColumnCount = 2 'задается в свойствах контрола
    For i = 1 To 3
        For j = 1 To 2
            k = k + 1
            s = s + ";" & k
            arr(i, j) = k
        Next j
    Next i
    .RowSource = Mid(s, 2)
'Form_Form.listbox.
End With
'вариант для контрола Microsoft Forms 2.0
ListBox2.Object.list = arr
ListBox2.ColumnCount = 2
...

вопрос конечно созвучен заданному, но он Ваш а не basilio2010, а тема не Ваша, предлагаю все же придерживаться правила один вопрос - одна тема
Евгений.

[Dophin]

спасибо.
Извините - впредь буду создавать новую тему.