Поиск по форме

@luchlex · Регистрация: 01.03.2016

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

Пожалуйста помогите!!!!!
Хочу реализовать поиск в ленточной форме. Есть несколько колонок, таких как ФИО, должность, телефон.
Ищу по колонке фио

Visual Basic
1
2
3
4
5
6
7
Private Sub Поиск_Change()
Dim PStr As String
PStr = Me.Поиск.Text
Me.Filter = "ФИО Like '*" & PStr & "*'"
Me.FilterOn = True
Me.Поиск.SelStart = Len(PStr)
End Sub

При вводе в строку поиска несуществующей в форме записи выдается ошибка 2195.
При вводе пробела (промуск между фамилией и именем) пробел в строке поиска не ставится.
Как это исправить?

@alexpro1979 · 01.03.2016, 13:21

Выложите базу

shanemac51 · 01.03.2016, 13:38

попробуйте так

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Поиск_Change()
Dim PStr As String
PStr = Me.Поиск.Text
Me.Filter = "ФИО Like '*" & PStr & "*'"
Me.FilterOn = True
Dim rst1c As DAO.Recordset,fpoisk
Set rst1c = Me.RecordsetClone
fpoisk = rst1c.RecordCount
Debug.Print fpoisk
If fpoisk = 0 Then MsgBox "пустая выборка-- записи не найдены--исправьте условие поиска"
Set rst1c = Nothing
 
if fpoisk>0
Me.Поиск.SelStart = Len(PStr)
endif
End Sub

@luchlex · 01.03.2016, 13:53 **[ТС]**

shanemac51, ругается на 13 строку.

mobile · 01.03.2016, 13:53

Чтобы избавиться от неправильной работы с пробелом надо выключить режим редактирования (Me.Dirty = False), присвоить полю значение и установить курсор. Конечная часть кода может выглядеть так

Visual Basic
1
2
3
4
5
.....................
Me.Dirty = False                  'Выключаем режим редактирования
Me.Поиск = PStr                   'Присваиваем значение полю
Me.Поиск.SelStart = Len(PStr) + 1 'Устанавливаем курсор
End Sub

@luchlex · 01.03.2016, 13:59 **[ТС]**

Частично справился с ошибкой.
Осталось: При вводе пробела (пропуск между фамилией и именем) пробел в строке поиска не ставится.

Добавлено через 4 минуты
mobile, СПАСИБО Огромное!!! ПОМОГЛО!!!!!!!!!!!!!!!!!!

shanemac51 · 01.03.2016, 14:06

ставьте знак вопроса или *

------------

Visual Basic
1
if fpoisk>0 then

@luchlex · 01.03.2016, 14:26 **[ТС]**

mobile, проблема с ошибкой до конца не решена. Если я ввожу несуществующую фамилию, или ошибаюсь в написании то выскакивает 2185 и debug перекидывает меня на строку
Me.Поиск.SelStart = Len(PStr)
Может быть вы знаете с чем это связано?

Добавлено через 1 минуту
"Невозможно обратиться к свойству или методу элемента управления, пока на этот элемент не установлен фокус ввода"

mobile · 01.03.2016, 14:45

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

"Невозможно обратиться к свойству или методу элемента управления, пока на этот элемент не установлен фокус ввода"

Да в иных случаях фокус может уйти с поля. Надо его вернуть

Visual Basic
1
2
3
4
5
Me.Dirty = False                  'Выключаем режим редактирования
Me.Поиск = PStr                   'Присваиваем значение полю
Me.Поиск.Setfocus                 'Устанавливаем фокус на поле
Me.Поиск.SelStart = Len(PStr) + 1 'Устанавливаем курсор
End Sub

@luchlex · 01.03.2016, 15:08 **[ТС]**

Не помогло. Все то же желтое поле. При наведении курсора на Me.Поиск.SelStart подсказка =0, При наведении курсора наLen(PStr) подсказка = (то что я написал в поиске)

@759 · 18.10.2016, 13:05

Visual Basic
1
2
3
4
5
6
7
8
Private Sub Поле_Change()
    Me.Refresh
    Me.Form.Filter = s
    Me.FilterOn = True
    Me.AllowAdditions = (Me.Recordset.RecordCount = 0) 'ОБЯЗАТЕЛЬНО
    Me.Поле.SetFocus
    Me.Поле.SelStart = Len(Me.Поле.Text)
    End Sub

@759 · 30.01.2019, 20:02

Немного со временем доработал живой поиск по форме (теперь пробелы нормально отрабатывает):

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Dim MyFilter as String
Dim text2 As String
Me.AllowAdditions = (Me.Recordset.RecordCount = 0)
If Not IsNull(Me.SearchName.text) Then text2 = Me.SearchName.text
Me.Requery
 
MyFilter = "([SortName] like" & """" & "*" & Me.SearchName & "*" & """" & " OR [FullName] like" & """" & "*" & Me.SearchName & "*" & """")"
 
 
    Me.Form.Filter = MyFilter
    Me.FilterOn = True
  
 
Me.SearchName = text2
Me.AllowAdditions = (Me.Recordset.RecordCount = 0)
Me.SearchName.SetFocus
Me.SearchName.SelStart = Len(Me.SearchName.text)

И вот вам еще одна идея которая ускорит живой поиск в VBA.

Если источником строк формы является запрос, то в этом запросе можно поставить фильтр по значению поля Me.SearchName из рабочей формы плюс других полей по желанию. Тогда код будет выглядеть очень просто и не будет мерцать при обновлении:

Visual Basic
1
2
3
4
5
6
7
8
9
Dim MyFilter as String
Dim text2 As String
Me.AllowAdditions = (Me.Recordset.RecordCount = 0)
If Not IsNull(Me.SearchName.text) Then text2 = Me.SearchName.text
Me.Requery
Me.SearchName = text2
Me.AllowAdditions = (Me.Recordset.RecordCount = 0)
Me.SearchName.SetFocus
Me.SearchName.SelStart = Len(Me.SearchName.text)

Новые блоги и статьи Все статьи Все блоги /
[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .	делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .
Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .

@alexpro1979 648 / 101 / 11 Регистрация: 08.06.2015 Сообщений: 1,564
	01.03.2016, 13:21
	Выложите базу 0

@luchlex 0 / 0 / 0 Регистрация: 01.03.2016 Сообщений: 9
	01.03.2016, 13:53 [ТС]
	shanemac51, ругается на 13 строку. 0

@luchlex 0 / 0 / 0 Регистрация: 01.03.2016 Сообщений: 9
	01.03.2016, 13:59 [ТС]
	Частично справился с ошибкой. Осталось: При вводе пробела (пропуск между фамилией и именем) пробел в строке поиска не ставится. Добавлено через 4 минуты mobile, СПАСИБО Огромное!!! ПОМОГЛО!!!!!!!!!!!!!!!!!! 0

@luchlex 0 / 0 / 0 Регистрация: 01.03.2016 Сообщений: 9
	01.03.2016, 14:26 [ТС]
	mobile, проблема с ошибкой до конца не решена. Если я ввожу несуществующую фамилию, или ошибаюсь в написании то выскакивает 2185 и debug перекидывает меня на строку Me.Поиск.SelStart = Len(PStr) Может быть вы знаете с чем это связано? Добавлено через 1 минуту "Невозможно обратиться к свойству или методу элемента управления, пока на этот элемент не установлен фокус ввода" 0

@luchlex 0 / 0 / 0 Регистрация: 01.03.2016 Сообщений: 9
	01.03.2016, 15:08 [ТС]
	Не помогло. Все то же желтое поле. При наведении курсора на Me.Поиск.SelStart подсказка =0, При наведении курсора наLen(PStr) подсказка = (то что я написал в поиске) 0

Поиск по форме

Решение