Hello (sorry for my writhing errors my English is not so good)


I like to make a search form,

In this search form is a sub form, in this sub form is a query that selects every customer of the company I work for.

My problem is I like to make it so that I can search in the sub form by standing in the desired column and typing the value that I desire.

Sort of a list box but in a list box you can only search for the first letter example:

-My name “Steve”
If I stand in the list box that is selected on the first name of a customer and type “s” I get everyone with an “s” but after the “s” I type a “t” and get everyone with a “t”. (not “st”)

If I use a combo box the problem is solved, but you can not select another column.
(Or you have to hide it)

(The two statements are correct I hope, if not correct me please.)


So I’d like to have a sub form and by standing in the desired column and then typing the needed result.

Example:

In the sub form customers there are 2 columns: “Name” and “Address”

1. if I need a search for a name I stand in the column Name and type “steve” and automatically I go to every customer with the name “steve”

2. if I need a search for an address I stand in the column address and type “België” en get every customer with an address in ”België”

End so on (? in Dutch it’s ‘en zo voort :D’ )

The reason for my question is if seen it work and it works fantastic but I never get to now how they managed to make it?

So if you now how to make it please help me.
I’ve had this question for almost a year.

Steve m

hi,
why using a list-box?
why not try a text-box?

well this is the code for the search program

Requirements;

vb 6.0
textbox----------Name it txtName
DataGrid---------Name it dtgShow

create an Access file,(A table) and Feilds
    Name the table 'Employee' and Name among
    your other feilds 'Employee Name'


Public Sub txtName
    On Error Resume Next
    Db_Rec.Close
    Dim SQLstm$
    Dim sName$
    Dim Db_Rec as Recordset

        sName = "'%" & txtName & "%'"

    SQLstm = "SELECT * FROM Emloyee WHERE [Employee Name] LIKE " & sName
    Set Db_Rec = New Recordset

    Db_Rec.Curlocation = 3
    Db_Rec.Open SQLstm,[Connection to a Database],2,3

    set dtgShow.Datasource = Db_Rec

End Sub

hope it works

Arowolo