|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
21.04.2016, 01:05 | #1 |
Пользователь
Регистрация: 17.03.2016
Сообщений: 77
|
Ошибка ФОКУСА ВВОДА 2185
Всем привет...
Написал фильтр для отбора данных в ленточной форме, но разрешения на изменение и добавление данных запрещены. И из за этого появляется ошибка фокуса ввода 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 Вот так вот выглядит мой код...помогите избавится от ошибки... Заранее спасибо!
...
|
21.04.2016, 07:40 | #2 |
2 the Nation Glory
Старожил
Регистрация: 27.05.2014
Сообщений: 3,289
|
В какой строке ошибка? После присвоения Поиску значения Пстр, пробовали setfocus поиску установить?
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы. |
21.04.2016, 09:43 | #3 |
Пользователь
Регистрация: 17.03.2016
Сообщений: 77
|
не пописал, сорри... ошибку выдает только тогда когда не находит запись....если записи находит то все в порядке....
...
|
21.04.2016, 09:45 | #4 |
Пользователь
Регистрация: 17.03.2016
Сообщений: 77
|
setfocus не могу грамотного его написать....знаний не хватает в VBA....подскажите как это правильно написать...
...
|
21.04.2016, 09:50 | #5 |
Пользователь
Регистрация: 17.03.2016
Сообщений: 77
|
еще хотел чтоб при ошибке не выдавал не ошибку а типо "Записи не найдена"
...
|
21.04.2016, 10:27 | #6 |
2 the Nation Glory
Старожил
Регистрация: 27.05.2014
Сообщений: 3,289
|
Попробуйте заменить
Код:
Код:
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы. |
21.04.2016, 11:07 | #7 |
Пользователь
Регистрация: 17.03.2016
Сообщений: 77
|
Матерится все равно....(((
...
|
21.04.2016, 15:25 | #8 |
Пользователь
Регистрация: 17.03.2016
Сообщений: 77
|
Я могу скинуть поглядеть....
...
|
21.04.2016, 15:25 | #9 |
Пользователь
Регистрация: 17.03.2016
Сообщений: 77
|
Саму базу...
...
|
21.04.2016, 15:41 | #10 |
Пользователь
Регистрация: 17.03.2016
Сообщений: 77
|
...
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Сложности с движением экселевского фокуса ввода из под ворда | alt2 | Microsoft Office Word | 10 | 21.10.2011 23:54 |
Изменить язык ввода (раскладку клавиатуры) при получении фокуса полем | SMShrek | Microsoft Office Access | 4 | 04.07.2011 09:42 |
Ошибка ввода | Petros | Общие вопросы по Java, Java SE, Kotlin | 4 | 26.06.2011 16:25 |
Ошибка при наведении фокуса на Edit | Gumer | Общие вопросы Delphi | 2 | 21.04.2010 00:13 |
Как убрать рамку фокуса ввода с TListBox? | SalasAndriy | Компоненты Delphi | 2 | 01.04.2009 21:09 |