ник: -)LKA(-
Всем привет! По этой ссылке http://hiprog.com/index.php?option=com_content&task=view&id=251661615&Itemid=35 sample выкладывал пример "Отбор записей формы по мере ввода символов в поле "
Option Compare Database
Option Explicit
Private Sub ClientForFilter_Change()
Dim strFind As String
strFind = Nz(Me.ClientForFilter.Text, "")
If strFind <> "" Then
Me.Filter = "[Название] Like '" & strFind & "*'"
Me.FilterOn = True
Me.ClientForFilter.SelStart = 200
Else
Me.FilterOn = False
End If
End Sub
|
Так вот проблема: если на форме убрать возможность добавления новой записи то при вводе в поле поиска слова, которого нет в таблице (форме) вылетает ошибка Run-time error '2185'
Помогите решить эту проблему пож-та, в vba не силен