After much searching in GOOGLE I've come up with... Surely there is someone in Tek Tips who can help??
Option Explicit
Private Function DivisionsSelected()
Dim Divisions As Variant
Dim strItems As String
For Each Divisions In Me![lstDivisions].ItemsSelected()
If Len(strItems) <> 0 Then strItems = strItems & Chr(13) & Chr(10)
strItems = strItems & Me![lstDivisions].Column(0, Divisions) & "," & Me![lstDivisions].Column(1, Divisions)
Next Divisions
DivisionsSelected = strItems
End Function
this give me a list to select from (text box-extended)
selections appear in another box by using.
Private Sub lstDivisions_AfterUpdate()
Div.Value = DivisionsSelected()
End Sub
This text box shows all values selected BUT only posts the first one selected to my table "DIV" field... What am I missing? I do need all chosen to reside in one field per record...
Option Explicit
Private Function DivisionsSelected()
Dim Divisions As Variant
Dim strItems As String
For Each Divisions In Me![lstDivisions].ItemsSelected()
If Len(strItems) <> 0 Then strItems = strItems & Chr(13) & Chr(10)
strItems = strItems & Me![lstDivisions].Column(0, Divisions) & "," & Me![lstDivisions].Column(1, Divisions)
Next Divisions
DivisionsSelected = strItems
End Function
this give me a list to select from (text box-extended)
selections appear in another box by using.
Private Sub lstDivisions_AfterUpdate()
Div.Value = DivisionsSelected()
End Sub
This text box shows all values selected BUT only posts the first one selected to my table "DIV" field... What am I missing? I do need all chosen to reside in one field per record...