Expand|Select|Wrap|Line Numbers
- Private Sub BtnClearFilter_Click()
- Me.SearchFor = ""
- Me.SrchText = ""
- Me.CboSource.Value = Null
- Me.CboSourcePart.Value = Null
- Me.SearchResults = Me.SearchResults.ItemData(1)
- Me.SearchFor.SetFocus
- Me.SearchResults.Requery
- End Sub