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

[satka]

На этом форуме кто-то выкладывал Пример поиска с фильтром (тему найти не смог, видимо ослеп), где ленточная форма фильтровалась на изменение поля, решил сделать тоже самое и столкнулся вот какой проблемой.
После применения фильтра

Private Sub Filtr()
Dim rfs, afs As String
afs = ""
Me.Refresh
If Len(fstreet.value) > 0 Then
    rfs = fstreet
    afs = afs & " and TabMainAdress.Street like '*" & rfs & "*'"
End If

Me.Filter = afs
Me.FilterOn = True
End Sub

возвращаюсь из процедуры фильтра в процедуру изменения поля

Private Sub fstreet_Change()
Dim fs As String
fs = "" & fstreet
Call Filtr
Me.fstreet.SelStart = Len(fs) + 1
End Sub

где передвигается фокус на конец поля (Me.fstreet.SelStart) , если в ленточной форме ничего не нашло, то фокус переводится на кнопку расположенную ниже этого поля и пишет что не возможно обратиться к методу элемента, пока на этот элемент не установлен фокус ввода. А в том примере, что выкладывали этого не происходит. Поэтому вопрос WTF?

[satka]

Up Ну что никто не знает как решит эту проблему?

[gluk_fm]

Я что-то не совсем понял вопрос. Вылаживайте пример посмотрим.

[satka]

Вылажить не смогу. Поясню (хотя и так вроде всё ясно):
пишем что-то в поле fstreet, происходит событие на продцедуру fstreet_Change, как видно из приведённого кода вызывается функция Filtr, после применения фильтра и окончания работы функции, возвращаемся в продцедуру fstreet_Change, где должна выполниться строка
Me.fstreet.SelStart = Len(fs) + 1
и вот тут, если после применения фильтра в ленточной форме нет записей, то происходит описанная выше ошибка (полагаю потому что, фокус с поля fstreet переходит на расположеную ниже этого поля кнопку), если записи есть то эта строка выполняется корректно, перенося курсор ввода в конец текста. Яснее не могу. Вопрос:
Почему так происходит? И как с этим бороться?

[gluk_fm]

Допишите поле проверки что то вроде if Len(fs)>0 then stop or end sub

[satka]

Дописать в каком месте? И в чём смысл условия?

[gluk_fm]

С вышеуказанного у меня возникло ощущение, что в поле которое Вы пытаетесь перейти значение по умолчанию берёт данные с таблицы которая у вас выводится. И когда значение нулевое выдаёт ошибку так как не возможно принять нулевой или ошибочный параметр. Для этого я и предлогаю вам дописать условие проверки значения и в случае если оно нулевое или ошибка не переходить на следующее поле.

[satka]

Поле fstreet является свободным, и нужно только для ввода даных для фильтра, который применяется для фильтрации данных запроса, который выводит записи в ленточную форму, поле находится в заголовке этой ленточной формы
Такой вот пример выкладывал кто-то, в чём разница с моими записями, там если ничего не выводится, то ничего и не происходит, у меня же выскакивает вышеозначеная ошибка

[gluk_fm]

Попробуйте через Ф8 пройти по модулю изменения. Я на 99% уверен что параметр fstreet или null or Error..... С того что я видел можно сделать вывод что у Вас проблеима в запросе..... я его не видел но есть такое предположение что у Вас в запросе стоит просто условие отбора с формы:
"*" & [forms]![tt]![value] & "*"

а лучше проставить как вариант:
iif(iserrror([forms]![tt]![value])=-1;"*";iif(isnull([forms]![tt]![value])=-1;"*";"*" & [forms]![tt]![value] & "*")

[НаталиКУС]

Помогите, пожалусто!!!

Мне необходимо реализовать следующий действие:

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

В программном коде я написала следующее:

Private Sub Кнопка20_Click()
Me.Поле3 = ""
Me.Filter = ""
Me.FilterOn = True
DoCmd.OpenForm "РАСТЕНИЕ"

End Sub

Но форма открывается но информация в ней не фильтруется выдаются все записи.

Подскажите что я написала не так?