поиск записей, начинающихся с определённой буквы

[bel-olya]

Необходимо, что бы по введенной букве в список(findit) выводились
названия покупателей(Pokypatel) на эту букву.

Код:

Private Sub findit_Change()
    Dim f  As String
    Dim poisk As String
    poisk = "select * from [Покупатели]"
    If Not Nz(Me.findit.Text, "") = "" Then
        f = Me.findit.Text
        poisk = poisk + " WHERE " & " [Pokypatel] LIKE '" + f + "*'" & "ORDER BY Pokypatel"
    End If
    If Not Me.findit.RowSource = poisk Then
        Me.findit.RowSource = poisk
    End If
End Sub

Однако в списке появляется толька первое название из названий на нужную букву.
Где не правильно?
Буду очень благодарна

[Алексей++]

а так

Код:

poisk = poisk + " WHERE  [Pokypatel] LIKE '" + f + "*' ORDER BY Pokypatel"

[Sla]

а где сам селект выполняется
poisk - это только формирование запроса

[bel-olya]

а так

Код:

poisk = poisk + " WHERE  [Pokypatel] LIKE '" + f + "*' ORDER BY Pokypatel"

тоже самое

а где сам селект выполняется
poisk - это только формирование запроса

а где он должен выполнятся?

[bel-olya]

Приблизительно поняла в чем дело.
Когда набираешь в поле первую букву в самом поле появляется первое найденное название,
и в списке одно название.
Но если удалить то, что появляется автоматически, то в списке висят названия, которые нужны.
Как сделать по-нормальному?
Я, наверное, по-тупому изъясняюсь, но извините...как умею.

[Sla]

я не знаю где он должен выполняться
findit.RowSource - что это такое?

[bel-olya]

findit.RowSource - что это такое?

findit.RowSource - это источник строк для списка в "поле с выпадающем списком" - findit

[Sla]

bel-olya, ты сам(а) пишешь, или цитируешь уже готовый код

[bel-olya]

Сама

[Sla]

bel-olya, если сама, то в какой части приведенного тобой кода  - выполняется! запрос

[bel-olya]

База в MSAccess.
В объекте "поле со списком" в свойствах есть вкладка Данные->Источник строк.
как я понимаю, там может находится поле(или поля) из таблици или запрос.

[bel-olya]

а программно это RowSuorce

[Sla]

Код:

Forms!Employees!cmboNames.RowSourceType = "Table/Query"
Forms!Employees!cmboNames.RowSource = "EmployeeList"

свойство RowSourceType чему равно?

а если так
Me.findit.RowSource = "poisk"

You can use the RowSource property (along with the RowSourceType property) to tell Microsoft Access how to provide data to a list box, a combo box, or an unbound OLE object such as a chart. For example, to display rows of data in a list box from a query named CustomerList, set the list box's RowSourceType property to Table/Query and its RowSource property to the query named CustomerList.

[bel-olya]

дело не втом, что запрос не выполняется. Запрос как раз выполнятся.
При нажатии первой буквы выполняется запрос, и в поле автоматически подставляется
найденное первое название? приходится каждый раз удалять в поле ту часть которая находится автоматически,
что бы стояла одна буква и тогда в списке есть все  записи на эту букву.

[Алексей++]

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

[HandKot]

bel-olya
у Вас все правильно, выставьте только в контроле св-во "Автоподстановка" в false и все
в принципе ответ Вы уже и сами нашли

[bel-olya]

Всем спасибо!

[HandKot]

кстати, если все-таки св-во Автоподстановка отсавить в true, то тода надо делать так

Код:

poisk = poisk + " WHERE " & " [Pokypatel] LIKE '" + Left(f, Me.findit.SelStart)  + "*'" & "ORDER BY Pokypatel"

[bel-olya]

HandKot, БОЛЬШОЕ СПАСИБО!