multi select list box problem

[jwoodland]

I have the following code in the AdfterUpdate event of a simple multi select listbox. The code puts the selected items in order (separated by commas) and works fine. However when I scroll through other records, the listbox doesn't update to show the current selection in the new record. Here is the code;

Private Sub List201_AfterUpdate()
Dim varItem As Variant
Dim txtTemp As String
For Each varItem In Me.List201.ItemsSelected
txtTemp = txtTemp & Me.List201.ItemData(varItem) & ","
Next
If Len(txtTemp) > 0 Then
txtTemp = Left(txtTemp, Len(txtTemp) - 1)
End If
Me.HowMany.Value = txtTemp
End Sub

Any pointers would be great!!

 

[Remou]

Where are you storing the selection?

 

[jwoodland]

The list box has two columns (number and description) and stores the values in the field text 'HowMany' like 1,2,3 etc....

 

[PHV]

stores the values in the field text 'HowMany' like 1,2,3 etc....
Have a look here:

http://r937.com/relational.html

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[jwoodland]

I know, I know this isn't 'grammatically' correct but this is only a simple single user database to input questionnaire responses and perform simple analysis, so this technique fits the purpose for this database.

Thanks anyway PHV!

 

[Remou]

You have already run into one of the problems you will encounter through not having a relational set-up. You must parse the field in an On Current event and mark each value as selected. There will be more difficulties when you come to analyse the data.

 

[TheAceMan1]

How are ya jwoodland . . .

Agree with [blue]PHV[/blue] & [blue]Remou[/blue]. Your definitely headed for trouble here!

[blue] . . .[purple]this is only a simple single user database[/purple] to input questionnaire responses and perform simple analysis . . .[/blue]

It won't be [purple]simple[/purple] long before your done!

See Ya! . . . . . .