Выпадающий список - поиск по части названия

@KirillV · Регистрация: 29.06.2013

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

Всем привет!
Есть задача - при открытии формы "таблица 1" в поле "наименование" хочу вводить часть содержимого наименования, чтобы далее выпадающий список подтягивал только те наименования, где содержится это слово, например введя "шлейф" подтягивались только наименования со словом "шлейф", кто-нибудь знает как это реализовать? т.к. сейчас поле со списком ищет слова в точности так, как оно заведено в "номенклатуру"

@glsn · 25.07.2021, 21:08

так что ли?

shanemac51 · 25.07.2021, 22:17

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

введя "шлейф" подтягивались только наименования со словом "шлейф"

справочник на 6500+записей, шлейфов более 800, вряд ли комфортно будет искать по списку, разумнее использовать подчиненную форму, чтобы искать по 2-3 кусочкам наименования и возможностью под-корректировки условия

@alvk · 26.07.2021, 02:29

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

так что ли?

Visual Basic

1	If Len(Наименование.Text) > 0 Then

я обычно больше 2-3 делаю, как правило меньше смысла нет.

@tkrainyk · 26.07.2021, 08:45

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

я обычно больше 2-3 делаю, как правило меньше смысла нет.

Я лично только 3 и больше

@KirillV · 26.07.2021, 11:57 **[ТС]**

glsn, да, именно так, но знаете что не удобно... после того. как перехожу в новую строку, выпадащий список ограничен "прошлым" критерием поиска. Можно как-то при переходе в новую строку обнуляться... чтобы выпадающий спсиок был полный... а не как в прошлой строке... видимо какой-то этап "обновления" надо...

shanemac51 · 26.07.2021, 12:11

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

выпадающий список был полный... а не как в прошлой строке

не тратьте время на список, все равно придете к всплывающей ленточной форме с полями для фильтра
у вас еще и разносимволье есть, например сс12 не равно сс12, так как первое сс12 на латинице, второе на кириллице, вполне возможно, что и это придется учитывать, формируя условие фильтра

наименование like "*[cс][cс]12*

возможно даже для учета разделителей
наименование like "*[cс][cс]*12*

@tkrainyk · 26.07.2021, 12:19

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

не тратьте время на список, все равно придете к всплывающей ленточной форме с полями для фильтра

Опять полностью поддерживаю shanemac51. Исходя из собственного опыта работы.

@KirillV · 26.07.2021, 13:09 **[ТС]**

shanemac51, да нет) меня вполне устраивает тот вариант, что был выше... просто не знаю, как его доработать... а там сс12 или cc12 это уже ответственность оператора, кто заводит эти названия..

Добавлено через 59 секунд
tkrainyk, а как это выглядит/работает?

shanemac51 · 26.07.2021, 13:34

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

там сс12 или cc12 - это уже ответственность оператора, кто заводит эти названия

уже введены и сс12 и другие подобные, визуально их не отличишь, а искать то надо
вам придется написать нормальную процедуру фильтрации

@KirillV · 26.07.2021, 13:41 **[ТС]**

shanemac51, ничего страшного)) да и поиск ведут больше не по точному наименованию, а по части. типа iphone 7 plus... и далее пролистывают, что подтянулось

shanemac51 · 26.07.2021, 14:21

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

iphone 7а plus

угадайте, какой регистр у 7а , что набирать оператору, кириллицу или латиницу
подобных строк у вас довольно много(я перевела в ворд и посмотрела, раскрасив для наглядности)

Добавлено через 4 минуты

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

далее пролистывают, что подтянулось

мне как-то досталась по наследству задача - для выбора весьма востребованного клиента оператор пролистывала 7 экранов , на 8-м глазами искала требуемого ЧП

@KirillV · 26.07.2021, 14:52 **[ТС]**

shanemac51, )))))))) если не хотите помочь)) то не помогайте. Я понимаю риск и осознаю)) но говорю, что меня это не пугает)) 7 страниц или 58))) если честно, то заказчик в данном случае, вообще ведет этот справочник из 7000 позиций, сам не понимая для чего)) т.е. там нет никакой привязки к цене, ед измерения или еще чему-то... просто выбор из списка)) видимо "красиво" глазам, когда выбираешь из списка... но цель финальная не ясна) поэтому просто хотел помочь облегчить поиск, как это сделали в первом ответе на сообщение мое) но оно требует небольших доработок. На самом деле они просто копирую навание с одного файла, вставляют в другой))) поэтому неисключено, что такое кол-во номенклатуры, только потому, что можно написать "айфон пробел 7" а можно "айфон пробел пробел 7" и никто это не перепроверяет...
поэтому если можете поправиь это -

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

после того. как перехожу в новую строку, выпадащий список ограничен "прошлым" критерием поиска. Можно как-то при переходе в новую строку обнуляться... чтобы выпадающий спсиок был полный... а не как в прошлой строке... видимо какой-то этап "обновления" надо...

- буду весьма благодарен)))

shanemac51 · 26.07.2021, 14:56

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

shanemac51, )))))))) если не хотите помочь)) то не помогайте

мое решение - через форму, но я должна знать - нужно ли оно вам

@KirillV · 26.07.2021, 15:20 **[ТС]**

shanemac51, не совсем понимаю кк это... но если смысл тот же - то почему бы и нет...

@Capi · 26.07.2021, 15:55

KirillV,

Сделать список полным можно очень просто:

1 способ.
Без к.-л. доработки БД, только силами пользователя-оператора.
Ввести в пустое поле Наименование пробел, затем удалить его.
Всё - список избавился от наложенного условия.

2 способ.
В процедуре обработки события формы Текущая запись прописать:
Наименование.Rowsource = "SELECT ... FROM ..."
То есть, без WHERE.

@KirillV · 26.07.2021, 16:21 **[ТС]**

Capi, а можете поправить? я просто не бум-бум в VBA

PureBasic

    If Len(Номенклатура.Text) > 3 Then
        Me.Номенклатура.RowSource = "SELECT Код, Номенклатура FROM nomenklatura where Номенклатура like '*" & Me.Номенклатура.Text & "*'"""
        Me.Номенклатура.Dropdown
    Else
        Me.Номенклатура.RowSource = "SELECT nomenklatura.Код, nomenklatura.Номенклатура FROM nomenklatura"
    End If

@Capi · 26.07.2021, 16:28

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

а можете поправить? я просто не бум-бум в VBA

В этой процедуре?
Но это же процедура Изменение (Change) для списка Наименование?
Почему теперь везде стоит Номенклатура?

@KirillV · 26.07.2021, 16:30 **[ТС]**

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

Почему теперь везде стоит Номенклатура?

я просто перенес в действующую БД

вот старая/оригинал: модете в ней поправить

PureBasic

    If Len(Наименование.Text) > 0 Then
        Me.Наименование.RowSource = "SELECT Код, Наименование FROM номенклатура where Наименование like '*" & Me.Наименование.Text & "*'"
        Me.Наименование.Dropdown
    Else
        Me.Наименование.RowSource = "SELECT номенклатура.Код, номенклатура.Наименование FROM номенклатура"
    End If

@Capi · 26.07.2021, 16:38

В этой процедуре зачем что-то подправлять?
Не обязательно. И так пойдет.

Новую процедуру нужно добавить:

Visual Basic

1
2
3

Private Sub Form_Current()
   Me.Наименование.RowSource = "SELECT Код, Наименование FROM номенклатура"
End Sub

shanemac51 Модератор 11955 / 4823 / 779 Регистрация: 07.08.2010 Сообщений: 14,126 Записей в блоге: 4
	26.07.2021, 13:34	10
	Сообщение от KirillV там сс12 или cc12 - это уже ответственность оператора, кто заводит эти названия уже введены и сс12 и другие подобные, визуально их не отличишь, а искать то надо вам придется написать нормальную процедуру фильтрации 0

@Capi Модератор 6003 / 2832 / 692 Регистрация: 12.06.2016 Сообщений: 7,592
	26.07.2021, 16:28	18
	Сообщение от KirillV а можете поправить? я просто не бум-бум в VBA В этой процедуре? Но это же процедура Изменение (Change) для списка Наименование? Почему теперь везде стоит Номенклатура? 0

shanemac51 Модератор 11955 / 4823 / 779 Регистрация: 07.08.2010 Сообщений: 14,126 Записей в блоге: 4
	25.07.2021, 22:17	3
	Сообщение от KirillV введя "шлейф" подтягивались только наименования со словом "шлейф" справочник на 6500+записей, шлейфов более 800, вряд ли комфортно будет искать по списку, разумнее использовать подчиненную форму, чтобы искать по 2-3 кусочкам наименования и возможностью под-корректировки условия 1

@tkrainyk 775 / 256 / 43 Регистрация: 09.12.2016 Сообщений: 855
	26.07.2021, 08:45	5
	Сообщение от alvk я обычно больше 2-3 делаю, как правило меньше смысла нет. Я лично только 3 и больше 1

@KirillV 0 / 0 / 0 Регистрация: 29.06.2013 Сообщений: 100
	26.07.2021, 11:57 [ТС]	6
	glsn, да, именно так, но знаете что не удобно... после того. как перехожу в новую строку, выпадащий список ограничен "прошлым" критерием поиска. Можно как-то при переходе в новую строку обнуляться... чтобы выпадающий спсиок был полный... а не как в прошлой строке... видимо какой-то этап "обновления" надо... 0

shanemac51 Модератор 11955 / 4823 / 779 Регистрация: 07.08.2010 Сообщений: 14,126 Записей в блоге: 4
	26.07.2021, 12:11	7
	Сообщение от KirillV выпадающий список был полный... а не как в прошлой строке не тратьте время на список, все равно придете к всплывающей ленточной форме с полями для фильтра у вас еще и разносимволье есть, например сс12 не равно сс12, так как первое сс12 на латинице, второе на кириллице, вполне возможно, что и это придется учитывать, формируя условие фильтра наименование like "[cс][cс]12 возможно даже для учета разделителей наименование like "[cс][cс]12* 2

@tkrainyk 775 / 256 / 43 Регистрация: 09.12.2016 Сообщений: 855
	26.07.2021, 12:19	8
	Сообщение от shanemac51 не тратьте время на список, все равно придете к всплывающей ленточной форме с полями для фильтра Опять полностью поддерживаю shanemac51. Исходя из собственного опыта работы. 0

@KirillV 0 / 0 / 0 Регистрация: 29.06.2013 Сообщений: 100
	26.07.2021, 13:09 [ТС]	9
	shanemac51, да нет) меня вполне устраивает тот вариант, что был выше... просто не знаю, как его доработать... а там сс12 или cc12 это уже ответственность оператора, кто заводит эти названия.. Добавлено через 59 секунд tkrainyk, а как это выглядит/работает? 0

@KirillV 0 / 0 / 0 Регистрация: 29.06.2013 Сообщений: 100
	26.07.2021, 13:41 [ТС]	11
	shanemac51, ничего страшного)) да и поиск ведут больше не по точному наименованию, а по части. типа iphone 7 plus... и далее пролистывают, что подтянулось 0

shanemac51 Модератор 11955 / 4823 / 779 Регистрация: 07.08.2010 Сообщений: 14,126 Записей в блоге: 4
	26.07.2021, 14:21	12
	Сообщение от KirillV iphone 7а plus угадайте, какой регистр у 7а , что набирать оператору, кириллицу или латиницу подобных строк у вас довольно много(я перевела в ворд и посмотрела, раскрасив для наглядности) Добавлено через 4 минуты Сообщение от KirillV далее пролистывают, что подтянулось мне как-то досталась по наследству задача - для выбора весьма востребованного клиента оператор пролистывала 7 экранов , на 8-м глазами искала требуемого ЧП 0

@KirillV 0 / 0 / 0 Регистрация: 29.06.2013 Сообщений: 100
	26.07.2021, 14:52 [ТС]	13
	shanemac51, )))))))) если не хотите помочь)) то не помогайте. Я понимаю риск и осознаю)) но говорю, что меня это не пугает)) 7 страниц или 58))) если честно, то заказчик в данном случае, вообще ведет этот справочник из 7000 позиций, сам не понимая для чего)) т.е. там нет никакой привязки к цене, ед измерения или еще чему-то... просто выбор из списка)) видимо "красиво" глазам, когда выбираешь из списка... но цель финальная не ясна) поэтому просто хотел помочь облегчить поиск, как это сделали в первом ответе на сообщение мое) но оно требует небольших доработок. На самом деле они просто копирую навание с одного файла, вставляют в другой))) поэтому неисключено, что такое кол-во номенклатуры, только потому, что можно написать "айфон пробел 7" а можно "айфон пробел пробел 7" и никто это не перепроверяет... поэтому если можете поправиь это - Сообщение от KirillV после того. как перехожу в новую строку, выпадащий список ограничен "прошлым" критерием поиска. Можно как-то при переходе в новую строку обнуляться... чтобы выпадающий спсиок был полный... а не как в прошлой строке... видимо какой-то этап "обновления" надо... - буду весьма благодарен))) 0

shanemac51 Модератор 11955 / 4823 / 779 Регистрация: 07.08.2010 Сообщений: 14,126 Записей в блоге: 4
	26.07.2021, 14:56	14
	Сообщение от KirillV shanemac51, )))))))) если не хотите помочь)) то не помогайте мое решение - через форму, но я должна знать - нужно ли оно вам 0

@KirillV 0 / 0 / 0 Регистрация: 29.06.2013 Сообщений: 100
	26.07.2021, 15:20 [ТС]	15
	shanemac51, не совсем понимаю кк это... но если смысл тот же - то почему бы и нет... 0

@Capi Модератор 6003 / 2832 / 692 Регистрация: 12.06.2016 Сообщений: 7,592
	26.07.2021, 15:55	16
	KirillV, Сделать список полным можно очень просто: 1 способ. Без к.-л. доработки БД, только силами пользователя-оператора. Ввести в пустое поле Наименование пробел, затем удалить его. Всё - список избавился от наложенного условия. 2 способ. В процедуре обработки события формы Текущая запись прописать: `Наименование.Rowsource = "SELECT ... FROM ..."` То есть, без WHERE. 0

Выпадающий список - поиск по части названия

Решение