Search results

My list box values are populated by a linked table. So, I can't add any values to this table. I want to add a value that says "All" so when the user highlights "All" it will pull up everything. I have everything set in my code for this "All" selection, but now my only problem is that there is...

Sure, instead doing from * I did... strSQL = "Select DISTINCT OS from StopOrder where [Train]=" So the query will only have one column, instead of every column.

never mind I figured it out =)

One more thing. Sometimes the 2nd list box will show the same value twice. Is there any way I can make it select Unique values? I tried strSQL = "Select DISTINCT* from StopOrder where [Train]=" which doesn't seem to work.

AWESOME. I have it working!!! Final code... Private Sub lstTrains_AfterUpdate() Dim frm As Form, ctl As Control Dim varItem As Variant Dim strSQL As String Set frm = Forms!mainform Set ctl = frm.lstTrains Set ctl2 = frm.LstOS strSQL = "Select * from StopOrder where [Train]="...

ahhh I totally forgot I need to put quotes around the train numbers... in other words. [Train]="204" OR [Train]="205" OR [Train]="206" OR [Train]="207" I'll try and fix this and give you an update! thanks with everything so far. Edit: Nevermind !!

When I do this... ctl.RowSource = strSQL it blanks all the values out of my Train Listbox. to give you a better picture the end of my code looks like this strSQL = Left$(strSQL, Len(strSQL) - 12) Debug.Print strSQL ctl.RowSource = strSQL ctl.Requery

does the ct.rowsource=strsql go at the end of my code? So in essence would this stored query be a temp query?

Don't I need to re-query the other listbox? Well here is my updated code, but it still isn't working.. Private Sub lstTrains_AfterUpdate() Dim frm As Form, ctl As Control Dim varItem As Variant Dim strSQL As String Set frm = Forms!mainform Set ctl = frm.lstTrains Set ctl2 =...

Banana, I see what you're saying and I have tried to build the Code myself. Here is what I have, but I'm not sure how I can re-query my list box with this code. Hopefully you can help me out. Private Sub lstTrains_AfterUpdate() Dim frm As Form, ctl As Control Dim varItem As Variant Dim...

btw I am doing this to run a query to have the list box as criteria. I have this working for one list box. So after I get the second list box working I should be able to have both boxes as criteria right?

Has anyone ever done this? I have two multiple selection list boxes, where the second one filters off the first one. So if the user picks 3 items from the first list box then a re-query should update the 2nd list box with the corresponding items. I've tried to do this like they are combo...

thanks, I'll check out that book.

Great way to search anything on the web!! thanks.

I would think you'd need to build something with HTML and have Access on the back end which I don't recommend. You can also look into Security for Access databases which can limit thing for certain users.

Can you just share the database on the network?

say it aint so =**( .. lol congrats.

No problem, just let me know what you think when you get a chance. Or anyone else can take a look.

any recommendations?

I say keep your laptop for quick/on the go type things. And make a new desktop!!!!!!!