ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Организация динамического поиска
25 сообщений из 59, страница 2 из 3
  2  все
Организация динамического поиска
    #35213543
Фотография Restavraciya
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Restavraciya
Участник
Ну вы мне просто облегчили выполнение этого спец задания
И как вы умудрились сами не смочь это воплотить в код ...

(значит файл вы не хотите.. и я должен тут долго и нудно объяснять получивщийся листинг кода .. жестокий вы человек)
...
Рейтинг: 0 / 0
25.03.2008, 23:07
| Ответить | Цитировать | Написать  
Организация динамического поиска
    #35213545
Фотография Restavraciya
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Restavraciya
Участник
Код: plaintext
1.
2.
3.
Private Sub ОБРАЗЕЦ_Change()
    Me.Filter = "FIO like '" & ОБРАЗЕЦ.Text & "*'"
    Me.FilterOn = True
End Sub
2 mds
Ты чаво ? Думал я не смог бы ? Зря ты так %-)
...
Рейтинг: 0 / 0
25.03.2008, 23:11
| Ответить | Цитировать | Написать  
Организация динамического поиска
    #35213546
Колхозник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Колхозник
Участник
Код: plaintext
1.
2.
3.
Private Sub ОБРАЗЕЦ_Change()
    Me.Filter = "FIO like '" & ОБРАЗЕЦ.Text & "*'"
    Me.FilterOn = True
End Sub

Это поиск по 1 первой букве, целое слово ввести невозможно!!!
...
Рейтинг: 0 / 0
25.03.2008, 23:15
| Ответить | Цитировать | Написать  
Организация динамического поиска
    #35213549
Фотография mds_world
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
mds_world
Участник
Restavraciya,
такой вариант ему уже я давал. Он не подошел, потому при фильтрации формы подавляются концевые пробелы. Вариант с подформой ему тоже не подходит, хотя с моей точки зрения, он более органичен. История-то уже три дня варится, детали накопились.
...
Рейтинг: 0 / 0
25.03.2008, 23:15
| Ответить | Цитировать | Написать  
Организация динамического поиска
    #35213556
Фотография Restavraciya
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Restavraciya
Участник
Ну тады ой
Извиняюсь за свою самонадянность
Впредь буду внимателен ко всему топику, а не только к последним воплям авторов %-)
...
Рейтинг: 0 / 0
25.03.2008, 23:20
| Ответить | Цитировать | Написать  
Организация динамического поиска
    #35213557
Фотография Restavraciya
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Restavraciya
Участник
> целое слово ввести невозможно
Целое слово как раз ввести возможно
Если бы не мдс так я бы и не понял чего надо
Тупойс
...
Рейтинг: 0 / 0
25.03.2008, 23:23
| Ответить | Цитировать | Написать  
Организация динамического поиска
    #35213558
Колхозник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Колхозник
Участник
Код: plaintext
1.
2.
3.
4.
Me.Filter = "Фамилия like '" & Поиск.Text & "*'"
With Me![Поиск]
Поиск.SelStart = Len(.Text)
End With
Me.FilterOn = True

А вот этот код нельзя преобразовать для того, чтобы можно было вводить пробелы?
...
Рейтинг: 0 / 0
25.03.2008, 23:23
| Ответить | Цитировать | Написать  
Организация динамического поиска
    #35213561
Колхозник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Колхозник
Участник
Код: 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
25.03.2008, 23:26
| Ответить | Цитировать | Написать  
Организация динамического поиска
    #35213563
Фотография mds_world
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
mds_world
Участник
Колхозник,
я уже сегодня дал вам текст процедуры, которая будет работать по вашему ТЗ. Смотрите пост от 23:02.
...
Рейтинг: 0 / 0
25.03.2008, 23:27
| Ответить | Цитировать | Написать  
Организация динамического поиска
    #35213564
Фотография mds_world
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
mds_world
Участник
КолхозникЭтот вариант вполне рабочий, но он меня не устраивает, он ищет по всему набору слов записи, а мне бы хотелось по первому слову с первой буквы... Так уберите первую звездочку и все
Me.Form.Filter = "Фамилия Like '" & p & "*'"
...
Рейтинг: 0 / 0
25.03.2008, 23:28
| Ответить | Цитировать | Написать  
Организация динамического поиска
    #35213571
Колхозник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Колхозник
Участник
mds_world КолхозникЭтот вариант вполне рабочий, но он меня не устраивает, он ищет по всему набору слов записи, а мне бы хотелось по первому слову с первой буквы... Так уберите первую звездочку и все
Me.Form.Filter = "Фамилия Like '" & p & "*'"

ОЙ! как это яне сообразил, позор...
...
Рейтинг: 0 / 0
25.03.2008, 23:36
| Ответить | Цитировать | Написать  
Организация динамического поиска
    #35213578
Фотография Restavraciya
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Restavraciya
Участник
Ну Колхозник, когда проставляться будешь ?
Самогоночка хорошая в вашем "50 лет без урожая" ?
...
Рейтинг: 0 / 0
25.03.2008, 23:46
| Ответить | Цитировать | Написать  
Организация динамического поиска
    #35213579
Колхозник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Колхозник
Участник
Тестил код:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
Private Sub Поиск_Change()
Dim p, s
    p = Поиск.Text
    Me.Form.Filter = "Name Like '" & p & "*'"
    Me.Form.FilterOn = True
    Me.Поиск.SetFocus
    Me.Поиск = p
    SendKeys "{f2}"
End Sub

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

Проблема не совсем решена :-)
...
Рейтинг: 0 / 0
25.03.2008, 23:49
| Ответить | Цитировать | Написать  
Организация динамического поиска
    #35213594
Колхозник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Колхозник
Участник
КолхозникТестил код:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
Private Sub Поиск_Change()
Dim p, s
    p = Поиск.Text
    Me.Form.Filter = "Name Like '" & p & "*'"
    Me.Form.FilterOn = True
    Me.Поиск.SetFocus
    Me.Поиск = p
    SendKeys "{f2}"
End Sub

Периодически при "ненахождении" или еще при каких то мне непонятных причинах вылетает ошибка следующего содержания:

Как это исправить...?
...
Рейтинг: 0 / 0
26.03.2008, 00:01
| Ответить | Цитировать | Написать  
Организация динамического поиска
    #35213596
Фотография Restavraciya
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Restavraciya
Участник
Наверное мдс сам тестит %-)
Или ждет когда ты додумаешся назвать строку на которой возникает ошибка

Имхо там просится on error resume next... если не нашла так и пошла ...
...
Рейтинг: 0 / 0
26.03.2008, 00:04
| Ответить | Цитировать | Написать  
Организация динамического поиска
    #35213610
Фотография mds_world
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
mds_world
Участник
В приведенном коде я вижу только один возможный источник ошибки - если в какой-то ситуации имя Name вдруг воспринимается как часть синтаксиса. Попробуйте поставить его в квадратные кавычки, чтобы показать, что это поле, а не свойство.

Возможно, конечно, что на форме существует нечто, препятствующее исполнению кода. Но отсюда плохо ее видно. Как любит говорить Владимир Саныч, придвиньте окно с формой поближе к монитору.
...
Рейтинг: 0 / 0
26.03.2008, 00:21
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
Организация динамического поиска
    #39735374
Сергей976
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сергей976
Гость
mds_worldКолхозник,
в первом варианте, который я давал в посте от 15:26, измените процедуру поиска на
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
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


И пойдет с пробелами

Код рабочий, но при попытке вводить символы с учетом регистра (нажимая Шифт), выскакивает окно "область ввода". Так же, при вводе символов во время поиска почему то нажимается и отжимается NumLock. Нигде в и-нете я не нашел ничего о посимвольном поиске с пробелами. Это нужно, когда искомое поле содержит данные из двух и более слов, например как названия фирм.
Помогите доработать код для поиска с пробелами.
...
Рейтинг: 0 / 0
20.11.2018, 00:23
| Ответить | Цитировать | Написать  
Организация динамического поиска
    #39735393
Eugene-LS
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Eugene-LS
Гость
Колхозник, тут примерчик обнаружился, с моей скромной т.з. неплохой.
Во вложении.

А прежде чем чётко ответить почему у вас глючит, нужно посмотреть ваш примерчик, с описанием ситуёвины когда глючит.
...
Рейтинг: 0 / 0
20.11.2018, 04:45
| Ответить | Цитировать | Написать  
Организация динамического поиска
    #39735418
Фотография ПЕНСИОНЕРКА
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ПЕНСИОНЕРКА
Участник
Eugene-LSтут примерчик обнаружился, с моей скромной т.з
оригинально сопоставлены заголовок столбца и поле для поиска
не сразу даже нашла
...
Рейтинг: 0 / 0
20.11.2018, 09:10
| Ответить | Цитировать | Написать  
Организация динамического поиска
    #39735447
Фотография __Michelle
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
__Michelle
Участник
Eugene-LSКолхозник, тут примерчик обнаружился, с моей скромной т.з. неплохой.
Во вложении.

А идейка-то и разработочка-то мои...
Да, там и пробелы обрабатываются, и кавычки с апострофами.
Вы ссылочки бы давали на источники, а то как-то не comme il faut.
http://www.cyberforum.ru/post12057827.html

И еще тест на внимательность: Колхозник, которому Вы отвечаете, задавал свой вопрос 10.5 лет назад.
...
Рейтинг: 0 / 0
20.11.2018, 10:13
| Ответить | Цитировать | Написать  
Организация динамического поиска
    #39735501
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
как вариант:
...
Рейтинг: 0 / 0
20.11.2018, 11:42
| Ответить | Цитировать | Написать  
Организация динамического поиска
    #39735588
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
Сергей976Это нужно, когда искомое поле содержит данные из двух и более слов, например как названия фирм.
Помогите доработать код для поиска с пробелами.Очень сильно сомневаюсь,что существует огромное количество фирм с одинаковым первым словом в названии и отобранные по первому слову не поместятся на экран(в ленточной форме без прокрутки, а даже если и с ней юзверь не перетрудится вращая колесико мыши). Поиск же с учетом пробелов усложнит код и в конечном итоге он будет осуществлен без пробелов,хотя пользователь будет их вводить (вроде "ненужные" функции Ltrim и Rtrim созданы далеко не зря)
...
Рейтинг: 0 / 0
20.11.2018, 13:08
| Ответить | Цитировать | Написать  
Организация динамического поиска
    #39735603
Фотография Лапух
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Лапух
Участник
__Michelle,

Интересно, чем докажите, что сами ни у кого не содрали примерчик?
Например у меня.
...
Рейтинг: 0 / 0
20.11.2018, 13:34
| Ответить | Цитировать | Написать  
Организация динамического поиска
    #39735604
Озверин
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Озверин
Участник
__MichelleEugene-LSКолхозник, тут примерчик обнаружился, с моей скромной т.з. неплохой.
Во вложении.

А идейка-то и разработочка-то мои...
Да, там и пробелы обрабатываются, и кавычки с апострофами.
Вы ссылочки бы давали на источники, а то как-то не comme il faut.
http://www.cyberforum.ru/post12057827.html

И еще тест на внимательность: Колхозник, которому Вы отвечаете, задавал свой вопрос 10.5 лет назад.

так надо было выкладывать на форум сразу с лицензией. Чего ж вы так не усмотрели?
...
Рейтинг: 0 / 0
20.11.2018, 13:34
| Ответить | Цитировать | Написать  
25 сообщений из 59, страница 2 из 3
  2  все
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Организация динамического поиска
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=39735588&tid=1610869]:
 0ms
get settings:
 5ms
get forum list:
 9ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 169ms
get topic data:
 6ms
get forum data:
 2ms
get page messages:
 36ms
get tp. blocked users:
 1ms
others: 203ms
total:  435ms
созд. / загр.: 435ms
x
x
Закрыть


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