Arkadaşlar formda birkaç harf ile süzme işlemi yapmak istiyorum. Site içerisinde aradım aşağıdaki kodu buldum

Sub Suzgec3()

Dim Suz As String

DoCmd.RunCommand acCmdRemoveFilterSort

If InStr(1, Me.Metin131, "*") = 0 Then Suz = Suz & "[Eser Adı]='" & Me.Metin131 & "' And " Else Suz = Suz & "[Eser Adı] Like '*" & Me.Metin131 & "*' And "

Me.Filter = Mid(Suz, 1, Len(Suz) - 4)

Me.FilterOn = True

End Sub

metin131 alanına mehmet yazdığımda eser adı alanında mehmet yazanları getiriyor.
metin131 alanına meh yazdığımda eser adı alanındaki meh içeren tüm kayıtlar gelsin istiyorum fakat yapmıyor.