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

[Jimmy Lenox]

Я сделал вот такой вариант (смотреть базу). Значения фильтруются. Но через какое-то время все становится колом - фильтрация не происходит. И это при отсутствии видимых причин, изменений в макет или код формы/запроса не вносил... Особенно часто - после того, как закрыл базу и открыл снова... Порой вылезает такая вот ошибка (Error.jpg)
Подскажите, в чем ошибка

[Step_UA]

Доброго.
Для поля IP-адрес поправил запрос:

SELECT IPАдреса.КодIpАдреса, IPАдреса.[IP-адрес]
FROM IPАдреса
WHERE (((IPАдреса.КодIpАдреса)=DLookUp("[КодIPАдреса]","Активка","[КодАктивки] = " & [Forms]![Form1]![КодАктивки])))
UNION SELECT IPАдреса.КодIpАдреса, IPАдреса.[IP-адрес]
FROM IPАдреса
WHERE IPАдреса.КодVLAN=[Forms]![Form1]![cbVLAN] AND (not IPАдреса.КодIpАдреса In (SELECT Активка.КодIPАдреса
 FROM Активка WHERE Активка.КодVLAN=[Forms]![Form1]![cbVLAN]));

Запрос является объединением (UNION) 2 запросов:
1. Выбираются значения установленные на данный момент для текущей записи, чтоб текущее значение также было доступно для выбора.
2. Выбираются все IP адреса указаного VLAN но не существующие в подзапросе:

(SELECT Активка.КодIPАдреса FROM Активка WHERE Активка.КодVLAN=[Forms]![Form1]![cbVLAN]))

возвращающем список занятых IP адресов для указаной VLAN

Обработчики событий:

Option Compare Database
Dim oldVal As Long ' для хранения кода кодVLAN
Private Sub Form_Current()
    CbIpAddress.Requery 
    oldVal = Nz(cbVLAN) ' ноль для новой записи - cbVLAN=Null
End Sub

При смене текущей записи обновляем поле CbIpAddress, чтоб список доступных адресов соответствовал установленному значению кодVLAN и запоминаем это значение в переменной oldVal

Private Sub cbVLAN_AfterUpdate()
  If cbVLAN <> oldVal Then
    CbIpAddress.Requery
    oldVal = cbVLAN
    CbIpAddress = 0
   End If
End Sub

После обновления поля cbVLAN сравниваем его значение с предшествующим значением (переменная oldVal). Если оно не изменилось - ничего не делаем, это может происходить если пользователь выбрал из списка ранее установленное значение.
Если значение изменилось, тогда обновляем список доступных IP адресов, запоминаем текущее значение cbVLAN и обнуляем значение IP адреса.
P.S. Для номера порта коммутатора делается по аналогии ...

[Jimmy Lenox]

Огромное спасибо!
Все прекрасно функционирует!
На выходных буду разбираться, что да как функционирует ,)
Я так понимаю, сам запрос Вы пишете в режиме SQL? Или в конструкторе, а потом объединяете 2 запроса?

[Jimmy Lenox]

Здравствуйте! Подскажите пожалуйста решение по следующему вопросу.

Есть форма, которая может использоваться как для внесения новых данных, так и для поиска уже внесенных. Открыв запись, оператор может случайно внести изменения. Есть ли возможность сделать так, чтобы при закрытии формы, или переходу к следующей ячейке выдавался запрос подтверждения на сохранение изменений? Либо какие-то альтернативные варианты…

[R Dmitry]

Добрый вечер, поместите данный код в модуль нужной формы, и наслаждайтесь

Public Sub Form_BeforeUpdate(Cancel As Integer)
        If MsgBox("     Сохранить изменения?", 52, "    Имеются несохраненные измения!") <> vbYes Then   Me.Undo
End Sub

[Jimmy Lenox]

Большое спасибо, Дмитрий! Завтра буду пробовать!

[Jimmy Lenox]

Добрый вечер!
Я почти закончил работу над базой, но столкнулся с одной трудностью. И так, есть:
Основная таблица (Главная). Она связанна с другими таблицами (Импортеры, Наименование, Поставщики), из которых берутся данные. Данные заносятся в основную таблицу через форму (Форма). Таким образом, в главной таблице данные находятся виде индексов, соответствующих данным в связанных таблицах.
Нужно:
Построить отчет. Чтобы данные в основной таблице отображались данные, а не их индексы. Я так понимаю, отечет строится на основе запроса?...

[alvk]

Откройте конструктор запросов, добавьте необходимые таблицы, перенесите вниз из таблиц нужные поля. Если схема данных сделана, то связывать таблицы не надо.

[Jimmy Lenox]

Разобрался и все сделал. Спасибо! ,)

[Jimmy Lenox]

Добрый день! Еще один вопрос.
Есть форма, которая разворачивается на весь экран (чтобы операторы не видели лишних кнопок/меню). Подскажите, как реализовать фильтр для поиска в форме. Как вариант, думал добавить кнопки «Изменить фильтр», «Применить фильтр» прямо в форму, но не знаю, как это реализовать...
База прилагается.
Заранее спсибо!