Поиск по первым буквам выдает ошибку, если ничего не найдено

@OKAyota · Регистрация: 04.12.2013

Author24 — интернет-сервис помощи студентам

Навеяло отсюда: Поиск по первым буквам из формы!

чтобы не повторять тему задам вопрос здесь. Делаю поиск в форме по первым введеным буквам. Вот код:

Visual Basic

Option Compare Database
Option Explicit
 
Private Sub ФильтрФамилия_Change()
Dim strFind As String
strFind = Nz(Me.ФильтрФамилия.Text, "")
If strFind <> "" Then
    Me.Filter = "[Фамилия] Like '" & strFind & "*'"
    Me.FilterOn = True
    Me.ФильтрФамилия.SelStart = 200
Else
    Me.FilterOn = False
End If
End Sub

собственно работает, до определенного момента. Выдает вот такую ошибку если нет фамилии по сочетанию введенных первых букв
подскажите пожалуйста как сделать чтобы не выдавало ошибку если фамилии по таким первых буквам нет, а показывало одну пустую строчку например?

	02.04.2014, 22:53