Populating a textbox

[vusunina]

Hi Guys,this is my first time on bytes.I have a fair understanding of Access and can manage to get my way around it, I use macros and occasionally a bit of coding,which is all self tought; however there are times (like now) where I feel that I could do with proffessional advice.I have table tblMembers that,in which member details are captutred,eg Name ,Address,Option.each member has a UniqueID in tblMembers.The members are captured through a form that has a ComboBox with the options. As a memeber can have more than one option;is there a way I can use to populate the options textbox tblMembers with all the selected options at once.For example member 1,may have chosen Options 1,2 4,6 and 7.
any help will be appreciated.Thanks.vusunina

[missinglinq]

One of the cardinal rules of relational database is that you never store more than one piece of data in any field. The proper way to do this would be to have a separate Options table and use it as the basis for a subform. When moving to a member's record on the main form, the subform would display a record for each Option that was selected by the member.

Having said that, here is the way to do what you've requested. Replace

YourOptionsComboBox

with the actual name of your combobox, and

txtOptions

with the actual name of the textbox on your form that holds the options data.

Private Sub YourOptionsComboBox_AfterUpdate()
If IsNull(Me.txtOptions) Then
  Me.txtOptions = Me.YourOptionsComboBox
Else
  Me.txtOptions = Me.txtOptions & ", " & Me.YourOptionsComboBox
End If
End Sub

Welcome to Bytes!

Linq ;0)>

[ADezii]

Assuming you have a 'List' Box named lstOptions with its MultiSelect Property set to Extended, and a Text Box on your Form named txtMemberOptions, the following code will write all the Multiple Items selected in lstOptions to txtMemberOptions in a Comma Delimited Format.

Dim ctl As Control
Dim varItm As Variant
Dim strOptions As String
 
Set ctl = Me![lstOptions]
 
If ctl.ItemsSelected.Count > 0 Then
  For Each varItm In ctl.ItemsSelected
    strOptions = strOptions & "," & ctl.ItemData(varItm)
  Next varItm
  Me![txtMemberOptions] = Mid$(strOptions, 2)
End If

OUTPUT:

'Assuming the User selects Option 1, Option 3, Option 6, Option 8, and Option 9
Option 1,Option 3,Option 6,Option 8,Option 9