limit number of selected items in listbox

[rwahdan@gmail.com]

I have a variable that i store number of services available to choose based on the package purchased. let us say for 50 dollars you can chose 3 services. So in the listbox I have 15 services, the customer is allowed to pick 3 services only, is there a way in access 2007 listbox to do that?



Thanks,

[John_G]

You can use the properties which count and reference the selected items in the listbox control. I put this code in the On_Click event of a listbox, and it does just what you are looking for, including un-selecting the item which was just selected:

Private Sub List0_Click()
  Dim SelectedItem As Integer
  If List0.ItemsSelected.Count > 3 Then
    MsgBox "you cannot select more than three items"
    '
    ' reverse the selection
    '
    SelectedItem = List0.ListIndex
    List0.Selected(SelectedItem) = False
  End If
End Sub

Change List0 to the name of your listbox, change the message to what you need, and it should be fine.

[rwahdan@gmail.com]

Thanks for the reply, now for the selected items, how to capture their values?

[John_G]

You can use the ItemsSelected and/or ItemData properties of the listbox. These references from MS explain how to work with them better than I could:

https://msdn.microsoft.com/en-us/VBA...or=-2147217396

https://msdn.microsoft.com/en-us/VBA...roperty-access

You might have to use the Column property if your listbox bound column is not the one that is visible.

https://msdn.microsoft.com/en-us/vba...or=-2147217396

[rwahdan@gmail.com]

thanks alot Mr. John, super