Просто дорога, котор я знаю должна построить функцию может построить ваш шнур фильтра, и после этого вызывает ту функцию всегда одно из ваших управлений критери по поиска обновлено. Например:
Функция BuildSearch ()
Тусклое sFilter как шнур
Если "" Nz (Me.cboDeviceType, "" <> ) после этого
sFilter = «DeviceType=» & Me.cboDeviceType
Закончитесь если
Если "" Nz (Me.cboUserName, "" <> ) после этого
Если Len (sFilter) > 0 после этого sFilter = sFilter & «И», то
sFilter = sFilter & «UserName='" & Me.cboUserName & «'»
Закончитесь если
Me.YourSubformControl.Form.filter = sFilter
Me.YourSubformControl.Form.FilterOn = True
Функция конца
Теперь как раз вызовите ту функцию от вашего управления:
Sub cboDeviceType_AfterUpdate ()
BuildSearch
Подводная лодка конца
Немного концов:
Шнуры фильтра ничего больше чем действительный SQL ГДЕ клаузулы без слова «ГДЕ», поэтому вы должны последовать за такими же правилами:
Заключите значения текста в одиночные или двойные цитаты: «UserName='" & Me.cboUserName & «'» окружены одиночными кавычками
Заключите значения даты в hashmarks: «DateLoaned=#» & Me.txDateLoaned & «#»
Сделайте КОНЕЧНО что вы правильн ссылаетесь к вашему управлению Subform. Это будет УПРАВЛЕНИЕ на вашей главным образом форме хозяйничает форма, котор вы используете как subform. Оно может или не может быть назван этими же форма вы использует как subform (т.е. «предмет источника»), так быть осторожным ссылаясь к тому управлению.