Private Sub arama_Change()
Me.AltForm1.Form.Filter = "([Sembol] & "" "" & [Tarih]) Like ""*" & Me.arama.Text & "*"""
Me.AltForm1.Form.FilterOn = True
End Sub
form1deki arama kutusunun değiştiğinde olayını aşağıdaki şekilde düzenleyip dener misiniz?