Multiple Select in Access 2003

[g diddy]

Hi

I'm using a statement to call other Subs if a unit (or multiple units) in a multi-select list box has been selected (and if not - do nothing). I know that the part below in Bold and Underlined is wrong but I cannot think of what it should be. I've tried a few variations of that part but still it doesn't work. By any chance can you help me with this? Basically i want this for loop to go through the list box (cmbUnit) and for every item selected call one of the two functions in the inner IF statement.

        ElseIf optWho.Value = 2 Then    
            For j = 0 To (cmbUnit.ListCount - 1)
                If cmbUnit.Value = True Then 
                cmbUnit.ListIndex = j 
                   If optFormat.Value = 1 Then
                       Call SaveUnitNEWxls(MYnewFolder)
                   ElseIf optFormat.Value = 2 Then
                       Call SaveUnitNEW(MYnewFolder)
                   End If
                End If
                ProgBarGo.Value = ProgBarGo.Value + 1
            Next j
        End If
 

Your help is greatly appreciated. Thanks for your time

[topher23]

The problem, I think, is that you're using a multi-select box, but ListIndex sets a single selection, and then you lose your original multiple selections. Try this code out:

        ElseIf optWho.value = 2 Then
            For J = 0 To (cmbUnit.ListCount - 1)
                If cmbUnit.Selected(J) = True Then
                   If optFormat.value = 1 Then
                       Call SaveUnitNEWxls(MYnewFolder)
                   ElseIf optFormat.value = 2 Then
                       Call SaveUnitNEW(MYnewFolder)
                   End If
                End If
                ProgBarGo.value = ProgBarGo.value + 1
            Next J
        End If
 

If the subroutines you are using need to reference the list box field's value, set them to accept the J value as an argument and then reference cmbUnit.ListIndex(J) instead.

[g diddy]

Thank you very much for your quick response! i'll give it a try now!