Every time when I have created a Command Button for a Find or search operation and use it to perform a find operation, Access brings the inbuilt dialog where I type the criteria. However, if I use part of a word to search I have to continue clicking find Next till I find the word or name I was looking for. Is there a way where when you type the search criteria, a list of all matching words is displayed and then you click the one you are looking for?

Help!!

Bmulenga

__________________
Bmulenga

If you are creating the Command Bottom in a form you could instead create a filter operation in VBA based off of a combo box. The filtering code will allow you to find the record you are looking for, and by using a combo box based off of the table you are working with you would have the ability to start trying and then chose the word you are looking for.

When you filter a form it is very similar to running the find command botton that is built into access. Once you run the filter though only the records that meet the criteria will be displayed in the form. Along with the filer bottom you will also have to create a remove filter botton to remove the filter when you are done with it.



The nice thing about a form filter with a combo box is that you can very quickly find the record you are looking for.



The first thing you need to do is to create a combo box, in the table/query property field for the combo box choose the name field from table A. Depending on how you created your form you might have to include and use the field ID, but I am going to guess that you will not have to include the ID field. Start with just the name field, you will have to determine this depending on your form. Name the combo box something like txtNameFilter.



You will then need to create a filter bottom and put the VBA code on the onClick procedure. Something like.

Assuming the name field in your table is actually called Name



varNameFilter = Me.txtNameFilter

    If varNameFilter <> "" Then
        varNameFilter = "Name like '*" & varNameFilter & "*'"
    Else
        varNameFilter = "Nz([Name]) like '*'"
    End If

    [Forms]![Name Of Your Form].Filter = varNameFilter
    [Forms]![Name Of Your Form].FilterOn = True



The last thing you will need to create is a remove filter bottom. This code will also be on the onClick procedure.



DoCmd.RunCommand acCmdRemoveFilterSort
    Me![txtNameFilter] = ""

    Me![txtNameFilter].SetFocus







Hope this helps.