Searching a List Box by typing in a text box

[amcfeely06]

Hi Everyone.

I am looking for some help to add a search capability to my Access Form.

My form is based on a query of company names.

Initially, the form was set up that I would select the company name from the list box and data from the tables would come up in subforms based in three different tabs.

My database has grown and now I would like to add a text box to search the list box.

I am not that experienced writing any kind of code, can someone help me out?

Thanks.

[MMcCarthy]

Hi Everyone.

I am looking for some help to add a search capability to my Access Form.
My form is based on a query of company names.

Initially, the form was set up that I would select the company name from the list box and data from the tables would come up in subforms based in three different tabs.

Assuming listbox name is List0. Put a command button (cmdSearch) on the form to filter the results of the subforms as follows:

Private cmdSearch_Click()
    Dim strFilter As String, strOldFilter As String
 
    strOldFilter = Me.Filter
If Not IsNull (Me!List0) Then _
   strFilter = "[CompanyName]='" & Me!List0 & "'" 'Assumes each table has a company name field.
End If
 
If strFilter > "" Then
   Me![SubformName1].Filter = strFilter ' put name of subform in
   Me![SubformName1].FilterOn = (strFilter > "")
   Me![SubformName2].Filter = strFilter ' put name of subform in
   Me![SubformName2].FilterOn = (strFilter > "")
   Me![SubformName3].Filter = strFilter ' put name of subform in
   Me![SubformName3].FilterOn = (strFilter > "")
    End If
 
End Sub

My database has grown and now I would like to add a text box to search the list box.

Not sure I understand what you're looking for here.

Mary