Please help me!!!!!

[duchessofireland]

I've been struggling for a few weeks over creating a database. I'm trying to create a way to track work orders placed and completed and who we assigned to the jobs. My biggest issue I've run into is - I can assign anywhere from 1 to 30 people on a job. I need to be able to query by individual employees and also would like to print a report showing all employees on a particular work order. When I used a multi-select list to choose my employees from - it returned only the first employee picked from the list. I can't get all the other ones to show up. And would I be able to query by employee if it was the 3rd of 4th or 25th person I assigned to the job? Any help you can give me would be greatly appreciated. Newbie here!!! Thank you

[Kevin Wilcox]

I've been struggling for a few weeks over creating a database. I'm trying to create a way to track work orders placed and completed and who we assigned to the jobs. My biggest issue I've run into is - I can assign anywhere from 1 to 30 people on a job. I need to be able to query by individual employees and also would like to print a report showing all employees on a particular work order. When I used a multi-select list to choose my employees from - it returned only the first employee picked from the list. I can't get all the other ones to show up. And would I be able to query by employee if it was the 3rd of 4th or 25th person I assigned to the job? Any help you can give me would be greatly appreciated. Newbie here!!! Thank you

I think you have to use code to take advantage of a multi-select list, and that without this it'll only ever return the first value selected. At least, that how I use them. Typically I build a query string within the AfterUpdate event for the listbox, and then e.g. set the record source of a form or control using that string, or replace an existing query (i.e. the record source for a report) with this new definition using querydef. My AfterUpdate event would usually look something like this;

Dim ctl As Control
Dim varItm As Variant
Dim ArgCount As Long
Dim MySQL As String
Set ctl = Me.lstEmpID
ArgCount = 0
 
MySQL = "Select * FROM tblEmployees WHERE"
 
For Each varItm In ctl.ItemsSelected
If ArgCount = 0 Then
MySQL = MySQL & " EmpID = & ctl.Column(0, varItm)"
Else
MySQL = MySQL & " OR EmpID = & ctl.Column(0, varItm)"
End If
ArgCount = ArgCount + 1
Next varItm
‘and then use this final MySQL to create a new query or as a recordsource

HTH
Kevin

[creative1]

Kevin is rite; this is the only way you can achieve this task. I also had a very bad time doing same task last week. But I tried same thing and it worked.
Good luck