Filter Text Based On Change Event By Ali Gerailly 9139078449

[Ali Gerailly]

Private Sub Text0_Change()

' Refresh Is Necessary Due To After Filtering Any Text While Back In Null Position Or Clear Text
Filter Remove Otherwise Never Clear Filtering

Me.Refresh
Qry = "[dwg] like " & "'*" & Me.Text0 & "*'"
Me.Filter = Qry
Me.FilterOn = True
Text0.SelLength = 0
'Nz Is Necessary Due To Not Give You The Null Error !!!
Text0.SelStart = Nz(Len(Me.Text0))

End Sub