Selecting multiple Listbox items on form into table

[hardrock]

Hello, I am trying to move a record from Listbox0 on my form (containing 2 columns MachineModel and SerialNumber) into tb_machines1. In the code below, it works for rst!MachineModel but it does not for SerialNumber. Could someone please help me correct the code in bold below so it works ? Thanks

Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("tb_machines1")

RecCount = 0
For Each i In List0.ItemsSelected
'*******************
rst.AddNew
rst!MachineModel = List0.ItemData(i)
rst!SerialNumber = List0.ItemData(i)
rst.Update
RecCount = RecCount + 1
Next i

 

[pr2-eugin]

What is the data type of the SerialNumber column?

 

[hardrock]

Hello, It is a string made up of 7 characters

 

[pr2-eugin]

Try this code.. I did not read your post properly.. Now going through I found it..

RecCount = 0
For Each i In List0.ItemsSelected
    rst.AddNew
    rst!MachineModel = List0.Column(0,List0.ItemData(i))
    rst!SerialNumber = List0.Column(1,List0.ItemData(i))
    rst.Update
    RecCount = RecCount + 1
Next i

Make sure that MachineCode is Column 1 and SerialNumber is in column 2 if it is the other way the code becomes..

RecCount = 0
For Each i In List0.ItemsSelected
    rst.AddNew
    rst!MachineModel = List0.Column(1,List0.ItemData(i))
    rst!SerialNumber = List0.Column(0,List0.ItemData(i))
    rst.Update
    RecCount = RecCount + 1
Next i

 

[hardrock]

Hello I've just tried it but for some reason If I do a multiple select in my List0 box it only copies the first record to the table, nothing else i.e.If I select 3 unique records, it will copy 3 lots of the first highligted record?

 

[pr2-eugin]

I believe it is because you might have the Multi Select as Simple.. change it to Extended..

 

[hardrock]

Defo set as "Extended" otherwise wouldn't be able to do multi select in list box.

 

[hardrock]

Got it working. I removed the ItemData. Thanks for the heads up


rst!MachineModel = List0.Column(0, (i))
rst!SerialNumber = List0.Column(1, (i))
rst.Update