Подчиненные списки

[Jimmy Lenox]

Здравствуйте!
Обращаюсь к профессионалам, так как у самого нет глубокого опыта работы с Access и Visual Basic.
Есть база с информацией о сети. Главная таблица – «Активка» - содержит поля «Имя устройства», «VLAN», «IP-подсети» , «IP-адрес». Для всех полей, кроме «Имя устройства», есть соответствующие таблицы с данными.
Хотелось бы сделать иерархические списки (если не ошибаюсь, так называется). При выборе значения VLAN в списке «IP-подсеть» оставались значения, которые относятся только к этому значению VLAN’a. И далее, исходя из значения в поле «IP-подсеть», в списке «IP-адрес» оставались значения, соответствующие IP-подсети.
Если возможно, реализовать не через форму, а через таблицу. И пару слов, как это было сделано, чтобы понять, что и куда писать. Пробовал делать по аналогиям, найденным в сети, но результата не получил.
Макет базы приложил.
Заранее спасибо!

[ovt256]

Для начала, Вы напутали с типом полей, например в таблице VLAN поле Код VLAN числовой, а в таблице IP-подсети - текстовый. А должен быть тоже числовой, ведь связывание этих таблиц будет происходить именно по этому полю.
Для реализации Вашей задумки в таблице (без использования формы) попробуйте использовать подстановку (конструктор таблиц, параметры поля, закладка Подстановка) см. рис.

[Jimmy Lenox]

Спасибо, исправляю ошибки! ,)

[Jimmy Lenox]

Подправил кое-что. Сделал базу с другими, чтобы понятнее было, о чем речь.
Фильтрация происходит, но есть вопросы:
1) Почему-то не происходит обновления подчиненного списка. Только если нажать кнопку "Обновить".
2) В какой-то момент времени форма перескакиевает на первую запись в таблице и начинает перезаписывать записи.
3) Вместо названия Отдела в итоговую таблицу заносится его код. Не могу понять, почему...
Будьте так добры, подскажите, что не так...

[ovt256]

Все-таки Вы не прислушались к предыдущей рекомендации: не следует хранить в таблице "Сотрудники" названия отделов и должностей, достаточно хранить их коды.
1. Для того, чтобы изменился список должностей после выбора отдела, необходимо выполнить запрос1, который фильтрует должности по выбранному отделу. Для этого надо добавить обработку события AfterUpdate для поля отдела.

Private Sub ПолеСоСписком0_AfterUpdate()
  ПолеСоСписком3.Requery
End Sub

2. Тут не понятно, что это за какой-то момент... Для добавления новой записи надо нажать соответствующую кнопочку либо Ctrl++.
3. Так и должно быть. Согласитесь, что нет смысла хранить название отдела в двух таблицах (избыточность данных). Тем более, что описание отдела может содержать гораздо больше информации, нежели просто название (номер комнаты, телефон). Кроме того, если организационная структура предприятия подразумевает наличие филиалов со сходной структурой, то и названия отделов будут повторяться. Если Вам потребуется вывести, например, списочный состав организации с отображением отделов и должностей, то используйте запрос.

На будущее не ленитесь присваивать элементам формы понятные названия: ПолеСоСписком0 - это ни о чем, а вот cbOtdel или cbDept говорит и о назначении поля (отдел) и о типе элемента (cb = ComboBox = ПолеСоСписком)

[Jimmy Lenox]

Спасибо за ответ!
Все поправил, как вы сказали. Вставил код обработки события, но автоматичское обновление все равно не происходит... В первый раз, при открытии формы все ок, а дальше - отказывается работать...

[Step_UA]

Доброго. У вас обновление содержимого выпадающего списка происходит, но его значение вы не меняете ...

[Jimmy Lenox]

Простите, можно немного поподробнее!..

[Step_UA]

  If CbOtdel <> CbOtdel.OldValue Then
' выполнять если выбран отдел отличный от старого или небыл выбран ранее
    cbDolzhnost.Requery  ' обновление содержимого раскрывающегося списка, но не его значения
    cbDolzhnost = ""   ' убираем значение поля
    cbDolzhnost.SetFocus  ' устанавливаем фокус на поле должностей
    cbDolzhnost.Dropdown ' раскрываем список выбора должностей
   End If

[Jimmy Lenox]

Простите, но я видимо чего-то не понимаю...
Сделал все, как Вы говорили, но обновление подчиненного списка все равно не происходит. Я просмотрел ту базу, которую Вы приложили в сообщении и заметил, что там та же самая проблема...
Может я что-то не так делаю?.. Объясните, пожалуйста!..