Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Помогите с обработкой ошибок в поиске. / 4 сообщений из 4, страница 1 из 1
23.11.2016, 16:30
    #39352857
wladimirrr
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите с обработкой ошибок в поиске.
Приветствую всех!
Есть код в поле ПоисИ:
Private Sub ПоискИ_Change()
Dim Pstr As String
Pstr = Me.ПоискИ.Text
Me.Filter = "Имя Like '*" & Pstr & "*'"
Me.FilterOn = True
Me.ПоискИ.SelStart = Len(Pstr)
End Sub
Если в этом поле набрать комбинацию букв, которых нет в полях "Имя", процедура выводит на отладку кода. Надо обработать эту ситуацию без вывода этого окна. Просто пустая таблица должна быть.
...
Рейтинг: 0 / 0
23.11.2016, 16:50
    #39352874
wladimirrr
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите с обработкой ошибок в поиске.
в окне кода подсвечивает строку:
...
Рейтинг: 0 / 0
23.11.2016, 17:15
    #39352897
Помогите с обработкой ошибок в поиске.
Судя по картинке - в форме запрещено редактирование/добавление записей.
Если закомментировать строку Me.ПоискИ.SelStart = Len(Pstr), вы мышкой сможете установить фокус в поле ПоискИ?

Попробуйте после Dim Pstr As String добавить строку с On Error Resume Next
...
Рейтинг: 0 / 0
23.11.2016, 17:48
    #39352928
wladimirrr
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите с обработкой ошибок в поиске.
Анатолий ( Киев ), да это то, что доктор прописал! Все работает, спасибо!
...
Рейтинг: 0 / 0
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Помогите с обработкой ошибок в поиске. / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]