Новые сообщения [новые:0]
Дайджест
Горячие темы
Избранное [новые:0]
Форумы
Пользователи
Статистика
Статистика нагрузки
Мод. лог
Поиск
|
23.11.2016, 16:30
|
|||
---|---|---|---|
|
|||
Помогите с обработкой ошибок в поиске. |
|||
#18+
Приветствую всех! Есть код в поле ПоисИ: Private Sub ПоискИ_Change() Dim Pstr As String Pstr = Me.ПоискИ.Text Me.Filter = "Имя Like '*" & Pstr & "*'" Me.FilterOn = True Me.ПоискИ.SelStart = Len(Pstr) End Sub Если в этом поле набрать комбинацию букв, которых нет в полях "Имя", процедура выводит на отладку кода. Надо обработать эту ситуацию без вывода этого окна. Просто пустая таблица должна быть. ... |
|||
:
Нравится:
Не нравится:
|
|||
|
23.11.2016, 16:50
|
|||
---|---|---|---|
|
|||
Помогите с обработкой ошибок в поиске. |
|||
#18+
в окне кода подсвечивает строку: ... |
|||
:
Нравится:
Не нравится:
|
|||
|
23.11.2016, 17:15
|
|||
---|---|---|---|
|
|||
Помогите с обработкой ошибок в поиске. |
|||
#18+
Судя по картинке - в форме запрещено редактирование/добавление записей. Если закомментировать строку Me.ПоискИ.SelStart = Len(Pstr), вы мышкой сможете установить фокус в поле ПоискИ? Попробуйте после Dim Pstr As String добавить строку с On Error Resume Next ... |
|||
:
Нравится:
Не нравится:
|
|||
|
|
start [/forum/topic.php?fid=45&mobile=1&tid=1612947]: |
0ms |
get settings: |
8ms |
get forum list: |
12ms |
check forum access: |
4ms |
check topic access: |
4ms |
track hit: |
42ms |
get topic data: |
11ms |
get forum data: |
2ms |
get page messages: |
32ms |
get tp. blocked users: |
2ms |
others: | 12ms |
total: | 129ms |
0 / 0 |