update table with multi select

I hope im in the right group please advise if i am not.

I am trying to create records for tracking items on table SDI ORDERS.
what ive done:
I have table SDI INVENTORY and table SDI ACTIVITIES, both are related to
table SDI ORDERS. with Enforced Referential Integrity. I made a form from
table SDI ORDERS. Also called SDI ORDERS. In this form i have a multi select
list called VESSLENAME. then i have Combo boxs:
"DeliverySR",CompanyName,"Activity". and Text boxes
"VESSLENAME",DeliverySR,CompanyName,Activity. I have gotten this far from
advice i read off a post by Klatuu. I have added a command button26 and on
its on click event there is code:

Private Sub Command26_Click()

Dim ctl As Control
Dim varItm As Variant

Set ctl = Me.VESSELNAME
For Each varItm In ctl.ItemsSelected

DoCmd.GoToRecord , , acNewRec
Me.txtVessleName = ctl.ItemData(varItm)
Me.txtActivity = Me.Activity
Me.txtCompanyName = Me.CompanyName
Me.txtDeliverySR = Me.DELIVERYSR
'Debug.Print ctl.ItemData(varItm)

Next varItm
Set ctl = Nothing

I am getting run-time error '2105' "you cant go to specified record."

What i want it to be able to select all vessels that were delivered to a
customers site with the Service Request number and activiy are al lthe same.
that way i can keep track of what vessles have been where. obviously i am new
at code please help!

"Len-80" wrote:

> I hope im in the right group please advise if i am not.
>
> I am trying to create records for tracking items on table SDI ORDERS.
> what ive done:
> I have table SDI INVENTORY and table SDI ACTIVITIES, both are related to
> table SDI ORDERS. with Enforced Referential Integrity. I made a form from
> table SDI ORDERS. Also called SDI ORDERS. In this form i have a multi select
> list called VESSLENAME. then i have Combo boxs:
> "DeliverySR",CompanyName,"Activity". and Text boxes
> "VESSLENAME",DeliverySR,CompanyName,Activity. I have gotten this far from
> advice i read off a post by Klatuu. I have added a command button26 and on
> its on click event there is code:
>
> Private Sub Command26_Click()
>
> Dim ctl As Control
> Dim varItm As Variant
>
> Set ctl = Me.VESSELNAME
> For Each varItm In ctl.ItemsSelected
>
> DoCmd.GoToRecord , , acNewRec
> Me.txtVessleName = ctl.ItemData(varItm)
> Me.txtActivity = Me.Activity
> Me.txtCompanyName = Me.CompanyName
> Me.txtDeliverySR = Me.DELIVERYSR
> 'Debug.Print ctl.ItemData(varItm)
>
> Next varItm
> Set ctl = Nothing
>
> I am getting run-time error '2105' "you cant go to specified record."
>
> What i want it to be able to select all vessels that were delivered to a
> customers site with the Service Request number and activiy are al lthe same.
> that way i can keep track of what vessles have been where. obviously i am new
> at code please help!
>
>
>
>
> Hi all i was able to fix this issue. Turns out my combo boxes on the form had to be unbound to work correctly. Case Closed
>