Adding pull down menu to querie

[trackmedic]

I have a query built that gives me info per employee. I built a question into the criteria that ask for the employees name. When a person types the name results are given. If the person mispells the name, results are not given.

I have everyones name on a seperate table. How do i create a pull down menu on the query to choose the names?

As always thanks in advance.:banghead:

 

[Uncle Gizmo]

Use a form with a combobox on it.

 

[cruzinonline]

Uncle,
I have had the same issue in the past and was given the same response. The problem is, people like me don't quite understand exactly what that means. Creating the form, no problem, creating a combo box, well that is where we go all deer in the headlights. Do we make a combo box of the "names", that's easy enough but we don't understand how do we 'link" the combo box to the [Select Employee Name] or [Question] in the query. It seems like it is pretty easy but the last part is where newbies like myself get tripped up. Could you upload a "sample" data base that has what you are describing? It would be greatly appreciated.

 

[vbaInet]

Even if Uncle were to upload a sample db it probably won't help your cause much. A video tutorial would be more useful and I would imagine you can find some on Youtube.

On the other hand, the moment you drop a combo box onto a form a wizard comes up so it's a matter of reading the instructions and following the wizard.

 

[pr2-eugin]

A video tutorial would be more useful and I would imagine you can find some on Youtube.

Something like : http://www.datapigtechnologies.com/flashfiles/combobox1.html

(a bit outdated, but explains it to the basics).

 

[Uncle Gizmo]

That data pig technologies video is an example of what I would term a self look up. It is getting its data from the actual table where the data selected by the combo box is return to. Although that video is a good example of using a combo box it misses one of the fundamental principles in using a combo box. The correct approach would be to keep the text data in a separate lookup table and only return the integer related to the particular row of text data.

I think I need to do some videos on correct combo box use!

 

[cruzinonline]

Thanks Uncle, I guess I'm one of those "visual" types, when I see something that works, I can go in and see how the parts connect, makes in click mentally.

 

[vbaInet]

The wizard too is visual enough.

 

[Uncle Gizmo]

I think I need to do some videos on correct combo box use!

I have put together a set of YouTube videos on combo boxes on my website here:-

Combo Box - Nifty Access

Combo Boxes Combo Boxes are the most fascinating and useful "Controls" you can have on your Form. They have Many uses. Combo Boxes can be manipulated in all sorts of ways without using VBA. Once you've mastered the combo-box, and once you have mastered Queries, the building of queries in the...

www.niftyaccess.com

Combobox Example Video:-

Combo Boxes - In the Beginning - Nifty Access​

​

 

[MajP]

This may interest you. It requires very little code, and you do not have to build any controls.

The Most Powerful form Filter and Requires almost No Code

NOTE: See updated code below. I recommend using the updated class module that @arnelgp modified. It further simplifies building a search form and addresses some bugs...

www.access-programmers.co.uk

If you download the last updated file using the class put together by @arnelgp this is all the code to allow you to filter any field

Dim CCF As classCommandFilters
Private Sub Form_Load()
    Set CCF = New classCommandFilters
    With CCF
        .add Me!Command37, "id"
        .add Me!Command60, "drawing"
        .add Me!Command61, "spool"
        .add Me!Command62, "MaxSize"
        .add Me!Command63, "heatnumber"
        .add Me!Command64, "length"
        .add Me!Command65, "paintcode"
        .add Me!Command66, "storagegrid"
        .add Me!Command67, "InventoryQty"
        .add Me!Command68, "InventoryDate"
        .add Me!Command69, "Remarks"
    End With
End Sub
Private Sub Form_Unload(Cancel As Integer)
    Set CCF = Nothing
End Sub