Поиск записей, соответствующих введенным буквам

[irr33]

Помогите решить задачу: Имеется однотабличная разделенная форма, в которой в основном окне отображаются записи о конкретной организации, а ниже прикреплена табличка со списком всех организаций. Хотелось бы создать поле поиска, в котором вводить названия организаций. При этом, чтобы при вводе первой буквы в прикрепленной табличке оставались организации на эту букву, при вводк второй буквы в поле поиска, чтобы оставались организации с такими же двумя буквами итд. Буду очень признательна.

[alibek]

Мало деталей.
Что за среда, каков источник данных.

[irr33]

Это Access

[Zenitchik]

Погодите, прикрепленная табличка, это что? Подчиненная форма?

Смотрите, нужно в модуль формы - той, где у вас поле для ввода букв подписать процедуру обработки:

Код: Выделить всё

Private Sub Поле_Change()
    With Поле
        SubForm.Filter = "Столбец Like '" & .Text & "*'"
        SubForm.FilterOn = True
        .SelStart = Len(.Text)
    End With
End Sub


Поле - имя поля, в которое вы пишете буквы (обратите внимание, встречается и в имени процедуры - Поле_Change - и в ее коде - With Поле - заменить (у вас ведь оно по другому будет называться?) надо в обоих местах);
SubForm - подчиненная форма, к которой применяете фильтр;
Столбец - имя столбца, по значению которого происходит фильтрация.

[irr33]

В последнем случае находится первая запись, соответствующая введенной букве, и то только воссле нажатия ввода. а как сделать соответствие отобранных записей всем буквам?

[Zenitchik]

Код: Выделить всё

Private Sub Поле_Change()
    With Поле
        SubForm.Form.Filter = "Столбец Like '" & .Text & "*'"
        SubForm.Form.FilterOn = True
        .SelStart = Len(.Text)
    End With
End Sub

Чуть изменил. Работает нормально.

[irr33]

Спасибо большое, только почему-то все равно не работает :(

[igor_m]

Private Sub FilterNaim_KeyUp(KeyCode As Integer, Shift As Integer)
Dim i As Byte

If (KeyCode >= 32 And KeyCode <= 122) Or (KeyCode >= 192 And KeyCode <= 255) Or KeyCode = 46 Or KeyCode = 8 Then
i = Len(FilterNaim.Text)
Me.RecordSource = strQRY()
FilterNaim.SetFocus
FilterNaim.SelStart = i
FilterNaim.SelLength = 1
End If
End Sub

Смысл таков: FilterNaim-обычное текстовое поле, отслеживается нажатие клавиш. Если клавиша не значок, не цифра и т.д. формируется запрос на обновление записей формы WHERE первые 2... буквы названия такие как в этом поле и т.д. Последние строчки: когда форма обновилась, то фокус переходит на нее, нужно переместить его обратно в поле ввода в конец записи.
strQRY()-формирование строки обычного sql-запроса на основе нескольких таких полей ввода, т.е. в каждое поле вводишь какой-то критерий и динамически выборка сужается.

[Zenitchik]

irr33
Опишите, что у вас за формы? Какие в них поля? По какому полю должен происходить отбор?

[Summer.05]

Помогите решить задачу: Имеется однотабличная разделенная форма, в которой в основном окне отображаются записи о конкретной организации, а ниже прикреплена табличка со списком всех организаций. Хотелось бы создать поле поиска, в котором вводить названия организаций. При этом, чтобы при вводе первой буквы в прикрепленной табличке оставались организации на эту букву, при вводк второй буквы в поле поиска, чтобы оставались организации с такими же двумя буквами итд. Буду очень признательна.

Код: Выделить всё

Private Sub Text1_Change()
     
    If Text1 = "" Then
            Adodc1.RecordSource = "SELECT * From DB order by Name" ' DB - название базы, Name - название организации
            Adodc1.Refresh
Text1.Text = DataGrid1.ApproxCount 'отражает общее количество
    Else
            With Adodc1
               .RecordSource = "SELECT DB.Name From DB WHERE DB.Name Like '*'"
               .Recordset.Filter = "Name like '" & Text3 & "*'"
            End With
Text2.Text = DataGrid1.ApproxCount 'отражает количество отобранных
   End If   
End Sub


В Text1 надо вводить буквы...