Приветствую всех!
Есть форма в Аксессе, на форме есть несколько полей со списком, каждое из которых заполняется из своей таблицы, есть поле, данные для которого берутся из третьей таблицы и есть список, в котором выводится запрос, берущий данные из нескольких таблиц.
Необходимо, чтобы при выборе строки в списке автоматически выделялись соответствующие строки в полях со списком.

Если детально, то есть таблица принтеров+картриджей, таблица с номенклатурой запчастей, таблица с категориями запчастей (для фильтра отбора) и таблица связей. Список на форме объединяет данные из всех этих таблиц для удобства отображения информации. При этом первый столбец в списке может быть пустым, если привязка запчасти ещё не была сделана, так же одна и та же запчасть может быть использована в нескольких разных моделях.

Загвоздка заключается в том, что когда я выделяю строку в списке, то скрипт правильно выделяет запись в первом выпадающем списке, но после этого выдает ошибку и прекращает работу. Пытался использовать такой код:

Private Sub Список10_Click()
  Me.ПолеСоСписком6.SetFocus
  Me.ПолеСоСписком6.SelText = Me.Список10.Column(4)
  Me.ПолеСоСписком8.SetFocus
  Me.ПолеСоСписком8.SelText = Me.Список10.Column(0)
  Me.Список10.SetFocus
End Sub



Присоединённый файл ( Кол-во скачиваний: 0 )
 ErrorMsg.jpg 27,67 Kb