Есть форма, на ней есть поле со списком "Тип названия" (2 поля, первое – 0 см ширины) и текстовое "Название". По нажатию кнопки "Добавить в список" (стрелка вниз) в строку списка должны добавиться все 3 значения. Соответственно на "Удалить из списка" (стрелка вверх) – удалиться. С помощью дополнительной таблицы и рекордсетов я такое делал, но мне надо через массив, т.к. в данном случае таблицу использовать нельзя. Читал пример у Гетца в "Разработке настольных приложений", но что-то никак не соображу, как там это работает. Может кто-н. выслать файл с базой, которую Гетц предлагает ("Разработка настольных приложений, глава 6, CH06.mdb)?

Бенедикт, proposed amendment, спасибо! гляну в справку.
Анатолий, список значений, имхо, здесь неудобен, т.к. в списке 3 столбца и они динамически формируются, добавляются и удаляются. А какие новые методы работы с ListBox'ом в Access 2002 позволяют его так запросто заполнять из массива? (А пример из Гетца я что-то не получил..., может, на форуме выложите?).

Спасибо! А я уже разобрался с этой функцией, заполняющей список. Что-то до меня не дошло, что Гетц так подробно описывает раздел справки (кстати, мне в справке почему-то даже больше понравилось), думал, он свою какую-то придумку рассказывает (на которые горазд).
Но попробуем разобраться с этой функцией до конца. Еще один вопрос: как удалить из полученного списка (заполненного пользовательской функцией) строку?
Пробую:
Dim varIndex As Variant
Dim ctl As Control
Dim frm As Form
Dim intType As Variant
Dim intName As Variant

On Error GoTo ErrorHandler

Set frm = Forms!frmAddMatter
Set ctl = frm!lstTypeAndNameMatter

For Each varIndex In ctl.ItemsSelected
intType = ctl.Column(0) 'на этой строке лезет в процедуру заполнения списка и возвращает оттуда почему-то день недели в двухсимвольном формате ("Вс", "Пн" и т.д.)!
intName = ctl.Column(2)
Next

'перед входом в цикл обнулим счетчик
intCountValue = 0

'Теперь пройдем по массиву, выясняя на каждом шаге, соответствует значение его строки
'выбранному в списке, и, если да, удалим его
For intMemberArray = 1 To UBound(arrVarMatterNames, 1)

If arrVarMatterNames(intCountValue, 0) = intType And _
arrVarMatterNames(intCountValue, 2) = intName Then

arrVarMatterNames(intCountValue, 0) = Null
arrVarMatterNames(intCountValue, 1) = Null
arrVarMatterNames(intCountValue, 2) = Null

Else
End If

intCountValue = intCountValue + 1
Next intMemberArray

Me.lstTypeAndNameMatter.Requery

Это хорошая идея, спасибо! Но откуда он дни недели берет?

Анатолий и mds_world, спасибо большое! Не оценил сразу, а вообще-то проще, чем функция и не глюкаво! А зачем тогда эта пользовательская функция?

proposed amendment, спасибо!