Multi-select listbox to output n values (as IN string) into query

[skydivetom]

Good morning:

I'd like to get some assistance with tweaking an existing VBA function which would allow me to pass *multiple* listbox items into a stored query.

Current Process:
- Forms by default
- Listbox = multi-select; either drag across items OR hold CTRL key to select non-consecutive items
- Click on command button "Open Query"
- Now, regardless of how many items/values were selected in the listbox, the query currently outputs only the last selected value

What I Need Instead:
- Modify the existing VBA so that I created a string of values in my query criteria (via the IN method)
- For instance, if I were to select {mail, auth, syslog, ftp}, I then would want to send *In ('mail','auth','syslog','ftp')* into the query's criteria

How does the VBA need to be modified to achieve the envisioned outcome?

Thank you,
EEH

P.S. Please see attached sample ACCDB

[moke123]

see my getLBX function in your old thread https://www.accessforums.net/showthr...397#post501397

you can pass the argument for the second column and delimit with quotes.

something like

qdf.SQL = "Select * from T102_Syslog_SampleData where KEYWORD in (" & getLBX(Me.lstSyslogKeywords, 1, , """") & ") order by KeyWord"

[skydivetom]

** UPDATED RESPONSE **

moke123 -- thank you for the assistance. I plugged the lbx function into a module and, using the updated QDF.SQL, it now works like a charm. 1000 thanks!!

Cheers,
EEH