Вопрос : Subform множественного combobox фильтруя в взгляде datasheet

Я wrestling с это одним для немного дней, котор now.

I имеют главным образом форму с источником данных tbl содержа номер счета info учета…, имени менеджера, etc. на этой форме я имею subform в взгляде datasheet, который показывает все имущества заданные к учету.  Окончательн будет 200 или поэтому записывают в tbl имуществ, и я хотел иметь информацию быстро sortable через comboboxes на главным образом форме над полями subforms соответственно.  Я только показываю 4 поля я хотел был бы фильтровать мимо на этой главным образом форме.  Они (Asset_Type, сеть, комната и Primary_User). цель

The здесь иметь на главным образом нагрузке формы все, котор показатели показали в subform.  Когда одно из comboboxes обновлено, я хотел был бы оно для того чтобы фильтровать показатели в subform для того чтобы сопрягать.  Я имею вопросы получить как раз что работать на этой стадии.

To добавьте к сложности, я хотел был бы остальные comboboxes для того чтобы добавить продолжая фильтры по мере того как они будут updated.

Example: Когда потребитель уточнит cmbType = компьтер-книжка, только компьтер-книжки были бы показаны, тогда если cmbPrimary_User будет уточнение к лани, то Джон, я хотел был бы увидеть только компьтер-книжки которые принадлежат к лани Джон и поэтому on.

I искали дальше здесь для немного дней и пытаясь различных по-разному примеров кодирвоания.  Я не очень versed при шнуры SQL, и бедный человек работаемый с доступом на немного лет теперь.  Мое VBA грубо в лучшем случае и я знаю что EE будет самым лучшим местом, котор нужно повернуть для хорошей твердой консультации и

If, котор образца code.

Thanks заранее. вы хотел были бы увидеть я имею до тех пор меня был бы больше чем счастливо для посылки поддерживая info.
class=

Ответ : Subform множественного combobox фильтруя в взгляде datasheet

Просто дорога, котор я знаю должна построить функцию может построить ваш шнур фильтра, и после этого вызывает ту функцию всегда одно из ваших управлений критери по поиска обновлено. Например:

Функция 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 (т.е. «предмет источника»), так быть осторожным ссылаясь к тому управлению.
Другие решения  
  •  Как я добавляю кнопки на форме PDF для того чтобы добавить/извлекаю рядки данных?
  •  Шнур ошибки в блоке задвижки?
  •  сколько вариант сервера SQL на одной машине
  •  Внешний вид 2007 не может архивный файл открытой сети сохраненный
  •  Активно директория DNS записывает вопрос
  •  Отчет о доступа 2010 экспорта к CSV с коллекторами?
  •  Прокладчик OCE 9400 не начинает
  •  как добавить десятичное место в формуле в отчете о кристалла seagate
  •  Windows XP и Мичрософт Оутлоок и проблемы установителя Windows
  •  VB6 к VS2010 - консультации тренировки?
  •  
    programming4us programming4us