Ошибка ФОКУСА ВВОДА 2185

[nikolaynn2008]

Всем привет...
Написал фильтр для отбора данных в ленточной форме, но разрешения на изменение и добавление данных запрещены. И из за этого появляется ошибка фокуса ввода 2185....

Private Sub Poisk_Change()
Dim Pstr As String
Pstr = Me.Poisk.Text
Me.Filter = "ПоискТовара Like '*" & Pstr & "*' or Cstr (Код) Like '*" & Pstr & "*'"
Me.FilterOn = True
Me.Dirty = False
Me.Poisk = Pstr
Me.Poisk.SelStart = LenB(Pstr) + 1
End Sub

Private Sub Очистить_Click()
Me.Poisk = vbNullString
DoCmd.ShowAllRecords
Me.Poisk.SetFocus
End Sub

Вот так вот выглядит мой код...помогите избавится от ошибки...
Заранее спасибо!

[Aleksandr H.]

В какой строке ошибка? После присвоения Поиску значения Пстр, пробовали setfocus поиску установить?

[nikolaynn2008]

не пописал, сорри... ошибку выдает только тогда когда не находит запись....если записи находит то все в порядке....

[nikolaynn2008]

setfocus не могу грамотного его написать....знаний не хватает в VBA....подскажите как это правильно написать...

[nikolaynn2008]

еще хотел чтоб при ошибке не выдавал не ошибку а типо "Записи не найдена"

[Aleksandr H.]

Попробуйте заменить

Me.Filter = "ПоискТовара Like '*" & Pstr & "*' or Cstr (Код) Like '*" & Pstr & "*'"
Me.FilterOn = True

на

Me.Filter = "ПоискТовара Like '*" & Pstr & "*' or Cstr (Код) Like '*" & Pstr & "*'"If me.RecordCount < 1 Then  ' no records, don't filter
      me.FilterOn = False
Else ' there are records, turn on filter
      me.FilterOn = True
End If

[nikolaynn2008]

Матерится все равно....(((

[nikolaynn2008]

Я могу скинуть поглядеть....

[nikolaynn2008]

Саму базу...

[nikolaynn2008]

https://cloud.mail.ru/public/NAfJ/Mf7LKNf1s