Better Search/Filtering Method

[jhergert]

Hello Everyone,



I am in need of some advise/help with a better search and filtering method. Right now the code that i use for searching works great, but it doesn't play well with other methods on a form. I think the term is cascading, I think that is what i am missing/lacking.

Right now, i have a combo box that i use in the form header that when you select a certian text it will filter the form from say 800 items to 300. But then when i use the search text box it is like it clears out what the combo box did and searches the entire form of 800 items.

What would be the best way to get these to play nice together?

Then second item, what is the best way to do a search as you type with keywords

Thank you in advance,
Josh

[Welshgasman]

Yes cascading, sounds like what you need.
Plenty of data on those.
Might want to start with a quick Google https://www.google.com/search?q=acce...hrome&ie=UTF-8

otherwise you need to adjust your code to check the other fields where your search value might exist using OR

[CarlettoFed]

Maybe if you show what you've done you can give you some useful advice.

[jhergert]

If you go over to Project Estimating in the navigation bar, and go to frmStructureLookup3. This would be the best one to show the dilemma, where the search/filter features work against each other when using them.

Thank you for being willing to look at it

[CarlettoFed]

I would say that there are tons of shortcomings in the construction of this program, so you will need to do some serious reading on how to handle Access first.

[davegri]

Do away with the filter. Just alter the form's recordsource with the combobox value:

Private Sub Combo113_AfterUpdate()
    Me.RecordSource = "Select * from CombinedStandardsT Where ConstructionType = '" & Combo113 & "'"
'    Me.Combo113.SetFocus
'    Me.FilterOn = False
'    Me.Filter = "[SearchStructure] Like '*" & Combo113 & "*'"
'    Me.FilterOn = True
'    Me.Requery
End Sub

Then the Clear button code would be:

Private Sub Command41_Click()
    Me.RecordSource = "Select * from CombinedStandardsT"
    'DoCmd.ShowAllRecords
    'Me.Find21.SetFocus
    Me.Find21 = ""
    Me.Check105 = ""
    Me.Check107 = ""
    Me.Check111 = ""
    Me.Combo113 = ""
End Sub

[June7]

Review this tutorial on a search form http://allenbrowne.com/ser-62.html

And this version of Find As You Type functionality http://allenbrowne.com/AppFindAsUType.html

[jhergert]

Or, you could mention what those short comings are so I know what I have to learn more on. Instead of saying learn how to walk again.

But thank you for your feedback