Блог

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

 Private Sub LampSearch_Change()

Dim strfilter As String

    Me.Refresh
    
    strfilter = "[SalesText] like '*" amp; Me.LampSearch amp; "'"
    
    Me.LampDataSheetSubForm.Form.Filter = strfilter
    Me.LampDataSheetSubForm.Form.FilterOn = True
    
    Me.LampSearch.SelStart = Nz(Len(Me.LampSearch), 0)

End Sub
  

Это работает, но не совсем делает то, что я хочу. Единственный способ, которым я могу описать, что он делает, — это «нравится», а не «содержит». Поэтому, если я буду искать, скажем, LED, он найдет только «LED», а не «LEDA19».

Что мне нужно изменить, чтобы заставить его искать записи, которые «содержат» строку?

Вам нужна (как начальная, так и) завершающая звезда:

 strfilter = "[SalesText] like '*" amp; Me.LampSearch amp; "*'"