Добрый день уважаемые программисты.
Делаю фильтр записей по фамилии. Необходимо чтобы отбирал любой введенный текст.
Данный код работает, если источник строк таблица, если источник строк - запрос, как у меня сейчас, при вводе НЕ существующей фамилии Access вылетает в ошибку - "невозможно обратиться к свойству или методу элемента управления". Выделяя строку:
1.
2.
Me.FIO.SelStart = Len(S0) + 1
End Sub
Сам код:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
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
Возможно ли как то адаптировать данный код, чтобы не вылетала ошибка?
