Dynamic search filter

استفاده از FilterOn و رویداد KeyUp برای فیلتر در FirstName یا LastName هر کدام بود فیلترشود

در کد زیر که از سایت خارجی استخراج شده و در رویداد KeyUp استفاده شده نتیجه آن در شکل بعد از کد نمایان گردیده  بطوریکه با فشردن هر کلید چنانچه در یکی از فیلدهای First یا Last بود دیتا گرید فیلتر میشود ، در شکل Tom تایپ شده و نهایتا هر رشته ای از این دو فیلد که در آن Tom دارد فیلتر شده بطور خودکار کار میکند یعنی وقتی T تایپ شود تمام رشته هایی در این دو فیلد که شامل T میشوند خواه در اول باشد یا آخر یا وسط فیلترمیشود بعد از تایپ o تمام رشته هایی که To دارند فیلتر میشوند و الی آخر 

If Len(txtNameFilter.Text) > 0 Then
   filterText = txtNameFilter.Text
   Me.Form.Filter = "[Contacts]![first_name] LIKE  
 filterText]  & "*' OR [Contacts]![last_name] & "*'
  "'*" & LIKE '*" & filterText 
   Me.FilterOn = True
  Retain filter text in search box after refresh'
   txtNameFilter.Text = filterText
   (txtNameFilter.SelStart = Len(txtNameFilter.Text 
Else
   Remove filter'
"" =  Me.Filter 
   Me.FilterOn = False
   txtNameFilter.SetFocus
End If