|
|
|
Помогите с обработкой ошибок в поиске.
|
|||
|---|---|---|---|
|
#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:30 |
|
||
|
Помогите с обработкой ошибок в поиске.
|
|||
|---|---|---|---|
|
#18+
в окне кода подсвечивает строку: ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 23.11.2016, 16:50 |
|
||
|
Помогите с обработкой ошибок в поиске.
|
|||
|---|---|---|---|
|
#18+
Судя по картинке - в форме запрещено редактирование/добавление записей. Если закомментировать строку Me.ПоискИ.SelStart = Len(Pstr), вы мышкой сможете установить фокус в поле ПоискИ? Попробуйте после Dim Pstr As String добавить строку с On Error Resume Next ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 23.11.2016, 17:15 |
|
||
|
|
start [/forum/topic.php?fid=45&gotonew=1&tid=1612947]: |
0ms |
get settings: |
10ms |
get forum list: |
10ms |
check forum access: |
2ms |
check topic access: |
2ms |
track hit: |
34ms |
get topic data: |
12ms |
get first new msg: |
6ms |
get forum data: |
2ms |
get page messages: |
37ms |
get tp. blocked users: |
2ms |
| others: | 375ms |
| total: | 492ms |
| 0 / 0 |
