How to get multi-select List Box to work to choose multiple drug names?

[vha7]

Hi All,

Access newbie here.

I currently have a listbox that contains drug names where I manually inputted the names in 'Edit List Items' in its Row Source. On Click, I have a code where it searches for the drug name chosen in the list-box using the LIKE operator so it searches for reports/publications/results that contain the drug name in the respective column, Reference Citation, that I called it for.

Private Sub ListInd_Click()
Dim myList2 As String
    myList2 = "SELECT * FROM [Publications] WHERE ([Reference Citation] LIKE '*" & Me.ListInd & "*')" _
    & "ORDER BY [Publications].[Pub Year] DESC; "
    Me.subPublications2.Form.RecordSource = myList2
    Me.subPublications2.Form.Requery
    
    applyFilt
    
End Sub

I have switched the Multi Select field in Form Properties to 'Simple' and/or 'Extended, but nothing seems to work. I cant seem to get the multiselect option to work where I can choose more than one option.

Any suggestions?



Thanks

[orange]

see http://www.baldyweb.com/MultiselectAppend.htm for code and sample database

[moke123]

What is " applyFilt "?
Are you trying to filter a subform?

if so you need to construct a filter string and apply it.

here's an example
msLBXExample.zip

[vha7]

What is " applyFilt "?
Are you trying to filter a subform?

if so you need to construct a filter string and apply it.

here's an example
msLBXExample.zip

This is exactly what I needed! However, my Row Source is me manually putting in values as the Row Source and not using a query and SELECT from, per se.
Additionally, when I try to run your code, it shows an error at:

"strList = getLBX(Me.List53, 1)"

I have created a module for the Public Function for GetLBX but it still doesn't seem to work and displays this error:

[moke123]

if you look at the arguments for getLBX the second argument is the column of the listbox you want to retrieve. Since you are using a value list I assume there is only one column. Therefore you can set the intColumn argument to 0, ie. getLBX(Me.List53, 0) or just omit the arguement as the default is column 0 ie. getLBX(Me.List53)

[vha7]

if you look at the arguments for getLBX the second argument is the column of the listbox you want to retrieve. Since you are using a value list I assume there is only one column. Therefore you can set the intColumn argument to 0, ie. getLBX(Me.List53, 0) or just omit the arguement as the default is column 0 ie. getLBX(Me.List53)

Hi moke,

I tried what you suggested, and made the intColumn argument to 0 or just omitted it fully; however, it still shows up the error: "Compile error: Expected variable or procedure, not module"

Any suggestions?

[CJ_London]

just peeking at the bottom of the module navigation window it looks like you have a module called getLBX - you cannot have a module with the same name as a function. change module name to say modgetLBX

[vha7]

Perfect, got it working, thanks a lot!

[moke123]

Good eye Ajax