Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Автоматический поиск по мере набора искомого значения / 10 сообщений из 10, страница 1 из 1
14.06.2015, 14:53
    #38983462
MrDrJOKER
MrDrJOKER
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Автоматический поиск по мере набора искомого значения
Привет.

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

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

всем заранее благодарен.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.06.2015, 15:45
    #38983470
mds_world
mds_world
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Автоматический поиск по мере набора искомого значения
Сделайте поиск по форуму на событие Change. Примеров множество
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.06.2015, 16:23
    #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, 17:50
    #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, 18:02
    #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:54
    #38983520
MrDrJOKER
MrDrJOKER
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Автоматический поиск по мере набора искомого значения
Ёжик`, спасибо большое.
По идее срабатывают оба варианта, но вылазит один странный эффект. В строке поиска набираемый мной текст постоянно выделен(маркирован) и поэтому при вводе следующего значения предыдущее удаляется. В итоге более одного символа задать не получается.

ПЕНСИОНЕРКА, благодарю. Только access у меня не русский, всю кирилицу в коде отображает криво. пытаюсь через NotePad++ раскодировать и понять код)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.06.2015, 19:02
    #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:14
    #38983532
__Michelle
__Michelle
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Автоматический поиск по мере набора искомого значения
Что же это за потомки, которые не додумаются до этого сами?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.06.2015, 19:24
    #38983539
MrDrJOKER
MrDrJOKER
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Автоматический поиск по мере набора искомого значения
__Michelle, ленивые потомки, которые не знают VBA)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Автоматический поиск по мере набора искомого значения / 10 сообщений из 10, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 251ms
Закрыть
start [/forum/topic.php?fid=45&tablet=1&tid=1614876]:
 0ms
get settings:
 10ms
get forum list:
 13ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 141ms
get topic data:
 13ms
get forum data:
 3ms
get page messages:
 50ms
get tp. blocked users:
 1ms
others: 12ms
total:  251ms
x
x
Закрыть


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