Добрый день.
Прошу помощи. Необходимо сделать фильтрацию в подчиненной табличной форме. Причем там, чтобы фильтр применялся по мере ввода данных. Для этого использую событие поля Change. Но что-то не складывается. Может сработать 1 раз, потом не работать, а потом сработать при деактивации и повторной активации поля и ввода в него данных. Изначально использовал свойства подчиненной формы Filter и FilterOn - не получилось. Потом решил попробовать со свойством RecordSource - та же история. Код прилагаю ниже.

' Не работает, как ожидается, при вводе символов
   Private Sub FindCity_Change()
    Dim query As String
    Dim flt As String
    Dim rs As String
    
    query = "SELECT * FROM Grid"
    flt = "WHERE City like '" & FindCity & "'"
    rs = query & " " & flt
    
        With Grid.Form
            .RecordSource = rs
            .Requery
        End With
End Sub

Что примечательно. С событием поля AfterUpdate работает отлично. То есть, код, вроде как, верный.

Private Sub FindCity_AfterUpdate()
' Прекрасно работает после написания критерия
    Dim query As String
    Dim flt As String
    Dim rs As String
    
    query = "SELECT * FROM Grid"
    flt = "WHERE City like '" & FindCity & "'"
    rs = query & " " & flt
    
        With Grid.Form
            .RecordSource = rs
            .Requery
        End With
End Sub

Но задача стоит о применении фильтра именно в процессе ввода данных. Буду очень благодарен за помощь.

http://www.sql.ru/forum/1226860/filtraciya-dannyh-v-podchinennoy-forme-afterupdate-i-change