Поиск с фильтром

[satka]

Одна тема один вопрос, а вообще:

Private Sub Кнопка20_Click()
  DoCmd.OpenForm "РАСТЕНИЕ"
 End Sub

и потом

Private Sub РАСТЕНИЕ_formload()
Me.Filter =" Таблица_которую_надо_фильтровать.Поле_которое_надо_фильтровать like '*" & Forms![Название_начальной_формы]!Form.Поле3.Value & "*'"
Me.FilterOn = True

Как-то таг, если не ошибся в пунктуации

[Teslenko_EA]

Здравствуйте satka.
предлагаю ознакомиться с образцом от LA (LiderAccess Виктор Конюков), надеюсь он будет Вам полезен.

to НаталиКУС
на будущее : satka безусловно прав делая Вам замечание "Одна тема один вопрос",
я бы ещё добавил: код выкладываемой конструкции должен быть заключен в тэги [СОDE] ... [/СОDE] (для этого и существует на панели кнопка #)
но так как Вы только начинаете общение на этом форуме, я всё-же попытаюсь помочь Вам.

у JET команды DoCmd.OpenForm в справочной системе есть подробное описание применяемых аргументов.
OpenForm(FormName, View, FilterName, WhereCondition, DataMode, WindowMode, OpenArgs)
в Вашем случае VBA конструкция открывающая форму может выглядеть подобным образом:

Dim s$
s = Поле3 & ""
DoCmd.OpenForm "РАСТЕНИЕ", , ,"ПолеДанныхОткрываемойФормы = '" + s + "'"
...

Евгений.

P.S. выкладывая вопрос не забывайте обращаться к тем кому Вы его адресуете, не знаете как - можно просто поздоровавшись.