Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Организация динамического поиска / 25 сообщений из 59, страница 1 из 3
  1  все
20.03.2008, 22:14
    #35204782
Колхозник
Колхозник
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Организация динамического поиска
Как правльно организовать поиск в ленточной форме, чтобы при вводе каждого последующего символа в строку поиска, значения вформе фильтровались посимвольно.

например:
если ввести в строку поиска: "ко" в форме остались только записи начиноющиеся на "ко", если добавим к "ко" еще "м", то записи которые начинаются на "ком".

Кто такое реализовывал, просьба помочь!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.03.2008, 22:27
    #35204795
Программист-Любитель
Программист-Любитель
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Организация динамического поиска
AfterUpdate поля фильтрация источника данных формы. Сложного ничего нет.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.03.2008, 10:25
    #35205223
Анатолий ( Киев )
Анатолий ( Киев )
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Организация динамического поиска
Лучше - событие Change.
Код: plaintext
1.
2.
3.
With Me![SubForm].Form
 .Filter = "[Поле] Like " & Me![Критерий].Text & "*"
 .FilterOn = True 
End With
Возможно понадобится и это (оставить курсор в конце текста):
Код: plaintext
1.
2.
With Me![Критерий]
 .SelStart = Len(.Text)
End With
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.03.2008, 10:31
    #35205238
Программист-Любитель
Программист-Любитель
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Организация динамического поиска
Не лучше, а правильно именно Change. Я написал не то, что подумал.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.03.2008, 12:37
    #35207400
Колхозник
Колхозник
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Организация динамического поиска
Код: plaintext
1.
2.
3.
4.
5.
6.
With Me![имя формы].Form
 .Filter = "[поле в котором происходит фильтрация] Like " & Me![поле по которому происходит фильтрация].Text & "*"
 .FilterOn = True 
End With
With Me![поле по которому происходит фильтрация]
 .SelStart = Len(.Text)
End With

Вы так имели ввиду? Так не работает, что неправильно? Подскажите пожалуйста!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.03.2008, 13:18
    #35207431
alexmsp
alexmsp
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Организация динамического поиска
не проверял
Код: plaintext
 .Filter = "[поле в котором происходит фильтрация] Like " & "'" & Me![поле по которому происходит фильтрация].Text & "*" & "'"
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.03.2008, 15:03
    #35207497
Колхозник
Колхозник
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Организация динамического поиска
alexmspне проверял
Код: plaintext
 .Filter = "[поле в котором происходит фильтрация] Like " & "'" & Me![поле по которому происходит фильтрация].Text & "*" & "'"


Безрезультатно!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.03.2008, 15:26
    #35207509
mds_world
mds_world
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Организация динамического поиска
Для примера. Вставьте форму Поиск в учебную БД Борей. В текстовом поле набирайте шаблон для поиска в поле Сотрудники
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.03.2008, 17:10
    #35207594
Колхозник
Колхозник
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Организация динамического поиска
mds_worldДля примера. Вставьте форму Поиск в учебную БД Борей. В текстовом поле набирайте шаблон для поиска в поле Сотрудники

Просмотрел, создал нечто подобное для своей базы. Получилось.
НО!
Возникают проблемы при совместном поиске по буквам и числам с пробелами.
Как это можно решить?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.03.2008, 17:20
    #35207604
Александра-Александра
Александра-Александра
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Организация динамического поиска
А такой вариант подойдет?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.03.2008, 18:25
    #35207653
Колхозник
Колхозник
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Организация динамического поиска
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
Private Sub Поиск_Change()
   Dim p, s
   p = Поиск.Text
   Me.Form.Filter = "Название Like '*" & p & "*'"
   Me.Form.FilterOn = True
   Me.Поиск.SelStart = Nz(Len(Me.Поиск),  0 )
   Me.Поиск.SelLength =  0 
End Sub

Хотелось бы разобраться, что здесь все-таки не так.!?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.03.2008, 18:38
    #35207663
mds_world
mds_world
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Организация динамического поиска
КолхозникХотелось бы разобраться, что здесь все-таки не так.!?
Не так здесь то, что вы пытаетесь фильтровать ту же форму в которой находится шаблон поиска. При фильтрации форма обновляется и все концевые пробелы исчезают. Так принять в микрософте. Можно, конечно, изогнуться и сделать с пробелами. Но стоит ли? Обычная практика, это когда форма в которой производят поиск и форма из которой ищут разделены. Шаблон поиска на главной форме (чаще всего эта форма без источника, просто контейнер для других форм), а форма в которой ищут - подформа. И тогда никаких проблем с обновлением формы нет. Ей просто не дают такой команды.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.03.2008, 19:05
    #35207683
Колхозник
Колхозник
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Организация динамического поиска
mds_world КолхозникХотелось бы разобраться, что здесь все-таки не так.!?
Не так здесь то, что вы пытаетесь фильтровать ту же форму в которой находится шаблон поиска. При фильтрации форма обновляется и все концевые пробелы исчезают. Так принять в микрософте. Можно, конечно, изогнуться и сделать с пробелами. Но стоит ли? Обычная практика, это когда форма в которой производят поиск и форма из которой ищут разделены. Шаблон поиска на главной форме (чаще всего эта форма без источника, просто контейнер для других форм), а форма в которой ищут - подформа. И тогда никаких проблем с обновлением формы нет. Ей просто не дают такой команды.

Так что же все-таки делать, если все есть как есть?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.03.2008, 19:40
    #35207717
mds_world
mds_world
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Организация динамического поиска
КолхозникТак что же все-таки делать, если все есть как есть?
А вот примерно так можно сделать. (тоже на основе Борея)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.03.2008, 20:45
    #35210713
Колхозник
Колхозник
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Организация динамического поиска
Код: plaintext
Me.Filter = "[поле в котором происходит фильтрация] Like " & "'" & Me![поле по которому происходит фильтрация].Text & "*" & "'"
Почему при выполнении этого кода поиск происходит только по 1 букве, почему он не дает полноразмерный поиск, как исправить?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.03.2008, 22:07
    #35213498
Колхозник
Колхозник
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Организация динамического поиска
UP!
Вопрос остается в силе!
Как сделать фильтр, если критерий поиска и записи находятся в 1 форме!!!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.03.2008, 22:18
    #35213502
Restavraciya
Restavraciya
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Организация динамического поиска
> Как сделать фильтр, если критерий поиска и записи находятся в 1 форме!!!

Лехко :-)

Перед тем как применить фильтр сохраните содержимое поля где вводите образец в глобальной переменной
После применения фильтра вернуть из глобальной в то поле и т.д.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.03.2008, 22:28
    #35213511
Колхозник
Колхозник
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Организация динамического поиска
А можно пример в студию...!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.03.2008, 22:36
    #35213515
Restavraciya
Restavraciya
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Организация динамического поиска
Пример чего ? мдб-файл что-ли ?

Из "Капитана Врунгеля"
- Мистер Фукс, у вас есть план ?
- А разве по мне не заметно ?

Объявляеш глобальную переменную в общем модуле
Далее по тексту пред.поста
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.03.2008, 22:44
    #35213520
Колхозник
Колхозник
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Организация динамического поиска
RestavraciyaПример чего ? мдб-файл что-ли ?

Из "Капитана Врунгеля"
- Мистер Фукс, у вас есть план ?
- А разве по мне не заметно ?

Объявляеш глобальную переменную в общем модуле
Далее по тексту пред.поста

Прошу прощения, но мы говорим на разных языках, я просил пример кода...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.03.2008, 22:54
    #35213529
Restavraciya
Restavraciya
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Организация динамического поиска
Я говорю на русском, вы кажется тоже
Разности не наблюдаю

Ок. Попробую сваять
Если правильно понял нужно в ленточной/табличной/одиночной (любой) форме которая сидит на запросе в некое поле вводить образец чтобы он был фильтром для формы. Так?
И еще - это поле должно быть свободное или иметь источник данных ?
(спрашиваю чтобы не тратиь сил напрасно)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.03.2008, 22:55
    #35213532
Колхозник
Колхозник
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Организация динамического поиска
RestavraciyaЯ говорю на русском, вы кажется тоже
Разности не наблюдаю

Ок. Попробую сваять
Если правильно понял нужно в ленточной/табличной/одиночной (любой) форме которая сидит на запросе в некое поле вводить образец чтобы он был фильтром для формы. Так?
И еще - это поле должно быть свободное или иметь источник данных ?
(спрашиваю чтобы не тратиь сил напрасно)

Все именно так, поле должно быть свободное...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.03.2008, 22:59
    #35213536
Restavraciya
Restavraciya
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Организация динамического поиска
И еще - вам как нравиться: на изменение или на апдейт поля применять фильтр ?
Только не надо хотеть всего и сразу - ограничтесь самым необходимым.
;-)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.03.2008, 23:01
    #35213538
Колхозник
Колхозник
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Организация динамического поиска
RestavraciyaИ еще - вам как нравиться: на изменение или на апдейт поля применять фильтр ?
Только не надо хотеть всего и сразу - ограничтесь самым необходимым.
;-)

На изменение - Change
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.03.2008, 23:02
    #35213539
mds_world
mds_world
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Организация динамического поиска
Колхозник,
в первом варианте, который я давал в посте от 15:26, измените процедуру поиска на
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
Private Sub Поиск_Change()
    Dim p, s
    p = Поиск.Text
    Me.Form.Filter = "Фамилия Like '*" & p & "*'"
    Me.Form.FilterOn = True
    Me.Поиск.SetFocus
    Me.Поиск = p
    SendKeys "{f2}"
End Sub
И пойдет с пробелами
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
  1  все
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Организация динамического поиска / 25 сообщений из 59, страница 1 из 3
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 519ms
Закрыть
start [/forum/topic.php?fid=45&tablet=1&tid=1610869]:
 0ms
get settings:
 6ms
get forum list:
 9ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 222ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 60ms
get tp. blocked users:
 1ms
others: 206ms
total:  519ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]