[AccessD] Deselect all items from a multi-Select list box

Here's another way to do it, which could be faster depending on how many
items are in the list...

Sub ClearListBox(lst As ListBox)
Dim sRowSource As String
    sRowSource = lst.RowSource 
    lst.RowSource = ""  ' no row source, so nothing is selected
    lst.RowSource = sRowSource
End Sub

Lambert

> -----Original Message-----
> From:	Gary [SMTP:gjgiever at yahoo.com]
> Sent:	Friday, April 04, 2003 10:41 AM
> To:	accessd at databaseadvisors.com
> Subject:	RE: [AccessD] Deselect all items from a multi-Select list
> box
> 
> Thank you.  I have managed to avoid using multi-select
> listboxes for seven years so I never ran into this
> before.
> 
> Gary
> 
> 
> --- Mike and Doris Manning <mikedorism at ntelos.net>
> wrote:
> > Dim lcv as Integer
> > 
> > For lcv = 0 to MyListBox.ListCount - 1
> > 	MyListBox.Selected(lcv) = False
> > Next lcv
> > 
> > Doris Manning
> > Database Administrator
> > Hargrove Inc.
> > www.hargroveinc.com
> 
> 
> =====
> Gary
> 
> Some people are born on third base and go through life thinking they hit a
> triple. 
> Barry Switzer (1937 - )
> 
> Jesus loves you...then again, so does Barney.
> 
> __________________________________________________
> Do you Yahoo!?
> Yahoo! Tax Center - File online, calculators, forms, and more
> http://tax.yahoo.com
> _______________________________________________
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com