By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
457,726 Members | 1,139 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 457,726 IT Pros & Developers. It's quick & easy.

On load select all in a list box

P: 29
Can you have a list box default to selecting all items and have people click off the ones they don't want?
Aug 5 '08 #1
Share this Question
Share on Google+
2 Replies


mshmyob
Expert 100+
P: 904
One way to do it would be like so
Expand|Select|Wrap|Line Numbers
  1. Set lst = Me!Your_Listbox_Name
  2. itm = 0
  3. Do While itm < lst.ListCount
  4.     lst.Selected(itm) = True
  5.     itm = itm + 1
  6. Loop
  7.  
Ensure your Multiselect property is set to 'Extended' and the user will see all items selected and then use the standard CTL key with mouse to unselect what they don't want.

cheers,
Aug 5 '08 #2

NeoPa
Expert Mod 15k+
P: 31,754
For ... Each would work nicely for this too :
Expand|Select|Wrap|Line Numbers
  1. Dim objItem As Object
  2.  
  3. For Each objItem In Me.Your_Listbox_Name.Selected
  4.   objItem = True
  5. Next objItem
Aug 9 '08 #3

Post your reply

Sign in to post your reply or Sign up for a free account.