ReSQL.ru
     
powered by simpleCommunicator - 2.0.48     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Автоматический поиск по мере набора искомого значения
10 сообщений из 10, страница 1 из 1
Автоматический поиск по мере набора искомого значения
    #38983462
MrDrJOKER
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MrDrJOKER
Гость
Привет.

Я здесь новенький, с Access и VBA опыта не много, поэтому чур помидорами не кидаться))

я тут мучаю в формуляре поле поиска и хотелось бы, чтобы поиск происходил после каждого изменения значения в поле автоматически. Т.е. я задал букву "а" мне сразу выдало все значения по букве "а", дописал "р" стало "ар" и поле результатов сразу показало все значения по значению "ар". это можно как-то в Access реализовать?

всем заранее благодарен.
...
Рейтинг: 0 / 0
14.06.2015, 14:53
| Ответить | Цитировать | Написать  
Автоматический поиск по мере набора искомого значения
    #38983470
Фотография mds_world
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
mds_world
Участник
Сделайте поиск по форуму на событие Change. Примеров множество
...
Рейтинг: 0 / 0
14.06.2015, 15:45
| Ответить | Цитировать | Написать  
Автоматический поиск по мере набора искомого значения
    #38983480
Фотография ПЕНСИОНЕРКА
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ПЕНСИОНЕРКА
Участник
MrDrJOKER,

многократно выкладывала пример
...
Рейтинг: 0 / 0
14.06.2015, 16:23
| Ответить | Цитировать | Написать  
Автоматический поиск по мере набора искомого значения
    #38983481
MrDrJOKER
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MrDrJOKER
Гость
mds_world, спасибо. сейчас пороюсь)

но мой код почему-то в процедуре AfterUpdate работает на "ура"
Код: vbnet
1.
2.
3.
Private Sub textSearch_AfterUpdate()
   Me.listUser.Requery
End Sub



а в Change никаких изменений не происходит при вводе символов
Код: vbnet
1.
2.
3.
Private Sub textSearch_Change()
    Me.listUser.Requery
End Sub
...
Рейтинг: 0 / 0
14.06.2015, 16:23
| Ответить | Цитировать | Написать  
Автоматический поиск по мере набора искомого значения
    #38983498
Фотография Ёжик`
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ёжик`
Участник
Код: vbnet
1.
2.
3.
4.
Private Sub textSearch2_Change()
    Me.textSearch=Me.textSearch2.Text
    Me.listUser.Requery
End Sub
...
Рейтинг: 0 / 0
14.06.2015, 17:50
| Ответить | Цитировать | Написать  
Автоматический поиск по мере набора искомого значения
    #38983501
Фотография Ёжик`
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ёжик`
Участник
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
Private Sub Form_Timer()
    Me.TimerInterval = 0
    Me.listUser.Requery
End Sub

Private Sub textSearch_Change()
    Me.textSearch.Value = Me.textSearch.Text
    me.TimerInterval = 500 ' полсекунды
End Sub
...
Рейтинг: 0 / 0
14.06.2015, 18:02
| Ответить | Цитировать | Написать  
Автоматический поиск по мере набора искомого значения
    #38983520
MrDrJOKER
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MrDrJOKER
Гость
Ёжик`, спасибо большое.
По идее срабатывают оба варианта, но вылазит один странный эффект. В строке поиска набираемый мной текст постоянно выделен(маркирован) и поэтому при вводе следующего значения предыдущее удаляется. В итоге более одного символа задать не получается.

ПЕНСИОНЕРКА, благодарю. Только access у меня не русский, всю кирилицу в коде отображает криво. пытаюсь через NotePad++ раскодировать и понять код)
...
Рейтинг: 0 / 0
14.06.2015, 18:54
| Ответить | Цитировать | Написать  
Автоматический поиск по мере набора искомого значения
    #38983526
MrDrJOKER
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MrDrJOKER
Гость
ура! решил! всем низкий поклон)

вот решение для потомков:

Код: vbnet
1.
2.
3.
4.
5.
Private Sub textSearch_Change()
    Me.textSearch = Me.textSearch.Text
    Me.textSearch.SelStart = Len(Me.textSearch.Text)
    Me.listUser.Requery
End Sub
...
Рейтинг: 0 / 0
14.06.2015, 19:02
| Ответить | Цитировать | Написать  
Автоматический поиск по мере набора искомого значения
    #38983532
Фотография __Michelle
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
__Michelle
Участник
Что же это за потомки, которые не додумаются до этого сами?
...
Рейтинг: 0 / 0
14.06.2015, 19:14
| Ответить | Цитировать | Написать  
Автоматический поиск по мере набора искомого значения
    #38983539
MrDrJOKER
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MrDrJOKER
Гость
__Michelle, ленивые потомки, которые не знают VBA)
...
Рейтинг: 0 / 0
14.06.2015, 19:24
| Ответить | Цитировать | Написать  
10 сообщений из 10, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Автоматический поиск по мере набора искомого значения
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru             Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=38983539&tid=1614876]:
 0ms
get settings:
 9ms
get forum list:
 14ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 44ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 55ms
get tp. blocked users:
 2ms
others: 249ms
total:  394ms
созд. / загр.: 394ms
x
x
Закрыть


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