Добрый день уважаемые программисты.
Делаю фильтр записей по фамилии. Необходимо чтобы отбирал любой введенный текст.
Данный код работает, если источник строк таблица, если источник строк - запрос, как у меня сейчас, при вводе НЕ существующей фамилии Access вылетает в ошибку - "невозможно обратиться к свойству или методу элемента управления". Выделяя строку:

Me.FIO.SelStart = Len(S0) + 1
End Sub

Сам код:

Sub fpoisk()
Dim s1, s2
Me.Refresh
s1 = "true "
 
s2 = "" & Me.FIO
If Len(s2) > 0 Then
s1 = s1 & " and  ФИО like '*" & s2 & "*'"
End If
''
Me.Filter = s1
Me.FilterOn = True
End Sub
_____________________________
 
Private Sub FIO_Change()
S0 = "" & Me.FIO
Call fpoisk
Me.FIO.SelStart = Len(S0) + 1
End Sub

Возможно ли как то адаптировать данный код, чтобы не вылетала ошибка?

http://www.sql.ru/forum/1263146/ne-rabotaet-filtraciya-dannyh-v-forme-gde-istochnik-zapisey-zapros