Transfering Data 'tween listboxes

[baldeagle]

This works just fine to transfer the value from one listbox to the other, except: If only one value is selected, nothing happens. Weird.

Private Sub btnAdd_Click()

Dim rst As New ADODB.Recordset
Dim ctl As Control
Dim x As Variant

Set ctl = Me.lstAvaliable
rst.Open "tblstdProcesses", CurrentProject.Connection, adOpenDynamic, adLockPessimistic
For Each x In ctl.ItemsSelected
     rst.AddNew
     rst("Base_ID") = Me.txtBaseID
     rst("Process_Type_ID") = Me.lstAvaliable.Column(0, x)
Next x
Me.LisPrss.Requery
End Sub

 

[pono1]

Best guess after two sips of coffee...

Private Sub btnAdd_Click()

Dim rst As New ADODB.Recordset
Dim ctl As Control
Dim x As Variant

Set ctl = Me.lstAvaliable
rst.Open "tblstdProcesses", CurrentProject.Connection, adOpenDynamic, adLockPessimistic
For Each x In ctl.ItemsSelected
     rst.AddNew
     rst("Base_ID") = Me.txtBaseID
     rst("Process_Type_ID") = Me.lstAvaliable.Column(0, x)
     [b]rst.update[/b]
Next x
Me.LisPrss.Requery
End Sub

Regards,
Tim

 

[baldeagle]

Thanks.
Worked Great....
Maybe I need better coffee.