powered by simpleCommunicator - 2.0.54     © 2025 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Помогите с обработкой ошибок в поиске.
4 сообщений из 4, страница 1 из 1
Помогите с обработкой ошибок в поиске.
    #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
Помогите с обработкой ошибок в поиске.
    #39352874
wladimirrr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
в окне кода подсвечивает строку:
...
Рейтинг: 0 / 0
Помогите с обработкой ошибок в поиске.
    #39352897
Судя по картинке - в форме запрещено редактирование/добавление записей.
Если закомментировать строку Me.ПоискИ.SelStart = Len(Pstr), вы мышкой сможете установить фокус в поле ПоискИ?

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


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