Пытаюсь сделать фильтр через textbox, спотыкаюсь об 0 / null

Пятница, 22 Июня 2018 г. 15:25 + в цитатник

Здравствуйте, уважаемые форумчане!

Делаю следующую дичь:
на форме большой листбокс с результатами запроса
на этой же форме расположены поля, по которым ищем позицию из этого запроса (как узнать текст запроса? из RowSource? сейчас вбито вручную в VBA). один из критериев - километраж
нажимаем кнопку - из заполненных полей собирается строка поиска - найденный результат выделяется в листбоксе
всё работает хорошо ровно до того момента, пока не пытаюсь найти нулевой километр. машинка бодренько отчитывается что textbox = null, а у меня на этом условие для написания строки критерия

Dim srch As String

If Me.txtKppSrchKM.Value <> 0 _ 
    Then

'пытался воткнуть сюда , 
'но код тогда совсем ломается и считает меня дегенератом, а не дилетантом

    If Left(srch, 4) <> " and" And srch <> "" Then srch = srch & " and"
    srch = srch & " Pln_KPP_list.KM = " & CStr(Me.txtKppSrchKM.Value)
End If