Good Afternoon

I m using a listbox for my database which has list values, month names and it is a multi selection... means at a time more than one months can be selected.

I used the following code to remove the selected items after used. for example if we used month jan then jan should not be highlighted so that it can not be used for the second time ... to avoid the duplicate claim of same month.

Code:
Dim lst As ListBox
Dim intRowCtr As Integer
Dim strBuild As String

'Substitute your own List Box Name
Set lst = Me![MonthFee]
 
With lst
  If .ItemsSelected.Count = 0 Then Exit Sub
   For intRowCtr = 0 To .ListCount - 1
      If Not .Selected(intRowCtr) Then
      strBuild = strBuild & ";" & .ItemData(intRowCtr)
    End If
   Next intRowCtr
 
  If strBuild = "" Then strBuild = ";"
 
  .RowSource = Mid(strBuild, 2)
  End With
The problem is that when jan remove from the list. and i select the next record for studid=2 here it shows the list of remaining months instead it should show also the removed items like jan


Looking for an early reply plz
Untitled.jpg