Посимвольный поиск в форме

@Tartuffe · Регистрация: 19.04.2015

Author24 — интернет-сервис помощи студентам

Добрый день!

В БД две формы:
--"Заявки" создана на основе таблицы,
--"Заказ" - на основе запроса, который создан из таблицы и двух запросов.

В обеих формах организован посимвольный поиск в полях "Наименование для заказа" и "Наименование".
--В форме "Заявки" все работает правильно
--в форме "Заказ" выдает ошибку: "... невозможно обратиться к свойству или методу управления элемента управления, пока на этот элемент не установлен фокус ввода".

При этом код одинаковый...
Помогите, пожалуйста, в чем может быть проблема? (пример в прицепе)

shanemac51 · 15.04.2017, 09:55

Сообщение от Tartuffe

"Заявки" создана на основе таблицы, "Заказ" - на основе запроса, который создан из таблицы и двух запросов. В обеих формах организован посимвольный поиск в полях "Наименование для заказа" и "Наименование"

таблица заявки --редактируемая форма, не вылетает на ошибку, даже если ничего не найдет
запрос заказ --не редактируемая форма,если не найдет --ошибка

помимо этого в одной из форм контрол называется наим, а в коде он прописан как фильтрНайм

@Tartuffe · 15.04.2017, 11:53 **[ТС]**

Странно... Access воспринимает фильтр, как попытку редактирования? Это, кстати, отдельный вопрос: почему, если форма создана на основе таблицы и запроса, не дает изменять данные полученные из таблицы? Кривая какая-то логика получается: запрос нужен, в частности, для того, чтобы выбрать нужные для обработки (изменения) данные; форма -- для того, чтобы представить их в удобном виде. Но при этом редактировать их не позволяет... Что-то не то...

Ну, хорошо... Ошибку в случае, если ничего не нашлось, легко обойти с помощью On Error Resume Next. Но фокус все равно теряется (хотя курсор торчит в этом окне) и кнопка сброса фильтра не работает...
Не пойму я что-то, как связана потеря фокуса и невозможность стереть содержимое текстового поля.

@Eugene-LS · 16.04.2017, 23:55

Сообщение от Tartuffe

почему, если форма создана на основе таблицы и запроса, не дает изменять данные полученные из таблицы? Кривая какая-то логика получается: запрос нужен, в частности, для того, чтобы выбрать нужные для обработки (изменения) данные;

Не все запросы редактируемые - зависит от схемы данных и отношений между таблицами.

Сообщение от Tartuffe

Но фокус все равно теряется (хотя курсор торчит в этом окне) и кнопка сброса фильтра не работает...

тут нужно посмотреть ...

Если вам нужен ответ - публикуйте пример с необходимыми данными и формами.

@Tartuffe · 17.04.2017, 08:16 **[ТС]**

Если вам нужен ответ - публикуйте пример с необходимыми данными и формами.

Дык, пример в первом посте...

@Eugene-LS · 17.04.2017, 09:17

Сообщение от Tartuffe

Дык, пример в первом посте...

Ой! "Замыленным" глазом пропустил.
Извините.

@Eugene-LS · 17.04.2017, 11:02

Сообщение от Tartuffe

Дык, пример в первом посте...

И тут родилось такое решение ...

@Tartuffe · 17.04.2017, 20:55 **[ТС]**

Сообщение от Eugene-LS

И тут родилось такое решение ...

Спасибо, очень интересно... Но это решение не избавляет от проблемы - ошибка с потерей фокуса никуда не исчезла... К тому же процедура "ФильтрЗак" выполняется дважды всякий раз, когда в строке появляется очередной символ.
Через обработку ошибок что ли попробовать?

@alexpro1979 · 03.06.2018, 13:34

В посимвольном поиске с таким вариантом нельзя запретить добавление новых записей. Может кто-то решил вопрос?

mobile · 03.06.2018, 13:51

Сообщение от alexpro1979

В посимвольном поиске с таким вариантом нельзя запретить добавление новых записей.

Не совсем понял. А Вы не пробовали установить свойство формы Разрешить добавление (AllowAdditions) в "Нет"? Тогда ни при каком условии в этой форме не добавить записи.

Или сделать источник формы немодифицируемым. Тоже нельзя будет добавить

@alexpro1979 · 03.06.2018, 14:03

Если запись не найдена и стоит запрет на добавление записей получаю ошибку

shanemac51 · 03.06.2018, 14:07

попробуйте так(замените конец кода)

Visual Basic

Me.FilterOn = False
Dim s1
s1 = DLookup("код", Me.RecordSource, "true " & s)
If Len("" & s1) > 0 Then
  If Len(s) > 1 Then
      s = Mid(s, 6)
      Me.Filter = s
      'Debug.Print s
      Me.FilterOn = True
  End If
 
  ФильтрЧто.Requery
  ФильтрГде.Requery
Else
MsgBox "нет записей по условию " & s
End If
 
End Sub

mobile 26805 / 14484 / 3192 Регистрация: 28.04.2012 Сообщений: 15,782
	03.06.2018, 13:51	10
	Сообщение от alexpro1979 В посимвольном поиске с таким вариантом нельзя запретить добавление новых записей. Не совсем понял. А Вы не пробовали установить свойство формы Разрешить добавление (AllowAdditions) в "Нет"? Тогда ни при каком условии в этой форме не добавить записи. Или сделать источник формы немодифицируемым. Тоже нельзя будет добавить 0

shanemac51 Модератор 11957 / 4825 / 779 Регистрация: 07.08.2010 Сообщений: 14,132 Записей в блоге: 4
	15.04.2017, 09:55	2
	Сообщение от Tartuffe "Заявки" создана на основе таблицы, "Заказ" - на основе запроса, который создан из таблицы и двух запросов. В обеих формах организован посимвольный поиск в полях "Наименование для заказа" и "Наименование" таблица заявки --редактируемая форма, не вылетает на ошибку, даже если ничего не найдет запрос заказ --не редактируемая форма,если не найдет --ошибка помимо этого в одной из форм контрол называется наим, а в коде он прописан как фильтрНайм 0

@Tartuffe 0 / 0 / 0 Регистрация: 19.04.2015 Сообщений: 12
	15.04.2017, 11:53 [ТС]	3
	Странно... Access воспринимает фильтр, как попытку редактирования? Это, кстати, отдельный вопрос: почему, если форма создана на основе таблицы и запроса, не дает изменять данные полученные из таблицы? Кривая какая-то логика получается: запрос нужен, в частности, для того, чтобы выбрать нужные для обработки (изменения) данные; форма -- для того, чтобы представить их в удобном виде. Но при этом редактировать их не позволяет... Что-то не то... Ну, хорошо... Ошибку в случае, если ничего не нашлось, легко обойти с помощью On Error Resume Next. Но фокус все равно теряется (хотя курсор торчит в этом окне) и кнопка сброса фильтра не работает... Не пойму я что-то, как связана потеря фокуса и невозможность стереть содержимое текстового поля. 0

@Eugene-LS 10446 / 5445 / 1375 Регистрация: 05.10.2016 Сообщений: 15,430
	16.04.2017, 23:55	4
	Сообщение от Tartuffe почему, если форма создана на основе таблицы и запроса, не дает изменять данные полученные из таблицы? Кривая какая-то логика получается: запрос нужен, в частности, для того, чтобы выбрать нужные для обработки (изменения) данные; Не все запросы редактируемые - зависит от схемы данных и отношений между таблицами. Сообщение от Tartuffe Но фокус все равно теряется (хотя курсор торчит в этом окне) и кнопка сброса фильтра не работает... тут нужно посмотреть ... Если вам нужен ответ - публикуйте пример с необходимыми данными и формами. 0

@Tartuffe 0 / 0 / 0 Регистрация: 19.04.2015 Сообщений: 12
	17.04.2017, 08:16 [ТС]	5
	Если вам нужен ответ - публикуйте пример с необходимыми данными и формами. Дык, пример в первом посте... 0

@Eugene-LS 10446 / 5445 / 1375 Регистрация: 05.10.2016 Сообщений: 15,430
	17.04.2017, 09:17	6
	Сообщение от Tartuffe Дык, пример в первом посте... Ой! "Замыленным" глазом пропустил. Извините. 0

@Tartuffe 0 / 0 / 0 Регистрация: 19.04.2015 Сообщений: 12
	17.04.2017, 20:55 [ТС]	8
	Сообщение от Eugene-LS И тут родилось такое решение ... Спасибо, очень интересно... Но это решение не избавляет от проблемы - ошибка с потерей фокуса никуда не исчезла... К тому же процедура "ФильтрЗак" выполняется дважды всякий раз, когда в строке появляется очередной символ. Через обработку ошибок что ли попробовать? 0

@alexpro1979 647 / 100 / 11 Регистрация: 08.06.2015 Сообщений: 1,564
	03.06.2018, 13:34	9
	В посимвольном поиске с таким вариантом нельзя запретить добавление новых записей. Может кто-то решил вопрос? 0

	03.06.2018, 14:07

Опции темы

Посимвольный поиск в форме

Решение