multiple names to a field using list box

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

b_a_redman - 29 Jun 2007 11:04 GMT

Ok, i have a mulitple selection listbox, i want to store the selected values
into one field with each value seperated by a comma in the field. Im not
interested about how it is not good practice and how it is not good to do. I
just want this feature on my form, i have no knowledge of VBA, so if somehow
has the know how to do it. Can you please help me and provide the code for me?

Reply to this Message

Scott McDaniel - 29 Jun 2007 11:54 GMT

>Ok, i have a mulitple selection listbox, i want to store the selected values
>into one field with each value seperated by a comma in the field. Im not
>interested about how it is not good practice and how it is not good to do. I
>just want this feature on my form, i have no knowledge of VBA, so if somehow
>has the know how to do it. Can you please help me and provide the code for me?

A multiselect listbox exposes the .ItemsSelected property, so you can do this:

Dim v As Variant
Dim sData as string

For each v in YourLIstbox.ItemsSelected
sData = YourListBox.ItemsSelected(v) & "," sData
Next v

sData = left(sDAta, Len(sData)-1)

CurrentProject.Connection.Execute "UPDATE SomeTable SET YourMultiValueField='" & sData & "' WHERE SomeIDField=" &
Me.YourIDField

I realize you don't want to hear about storing multiple values in a field, but it's wrong, wrong, wrong ... there is no
easy way to search this field, and a 1-M relationship should be stored in separate tables ... but if ya wanna hose up
your data, be my guest!!

Scott McDaniel
scott@takemeout_infotrakker.com
www.infotrakker.com

Reply to this Message