help with getting code to work

[melaniews]

I'm trying to make it easy for a user to select all in a listbox.

This code works great for clearing all selections (lboTPromoID.Selected(varItem) = False). Why doesn't it work to select all when (varItem) = True?

Also, how can I accomplish my goal here?


Private Sub cmdSelectAll_Click()
On Error GoTo Err_cmdSelectAll_Click

'set a select all command here

Dim varItem
For Each varItem In lboTPromoID.ItemsSelected
lboTPromoID.Selected(varItem) = True
Next varItem

Exit_cmdSelectAll_Click:
Exit Sub

Err_cmdSelectAll_Click:
MsgBox Err.Description
Resume Exit_cmdSelectAll_Click
End Sub


TIA,
Melanie

 

[CajunCenturion]

The reason it works for clearing the selection is because you're only selected the selected items

For Each varItem In lboTPromoID.ItemsSelected

To select all of the items in a list box, I use the following code:

   Dim lCtl_CntrlSource       As Control
   Dim lInt_CurrRow           As Integer
   
   Set lCtl_CntrlSource = [Forms]![frmReportsMain]![lstReportList]
   For lInt_CurrRow = 0 To lCtl_CntrlSource.ListCount - 1
      lCtl_CntrlSource.Selected(lInt_CurrRow) = True
   Next lInt_CurrRow

And it's very easy to change True to False to Unselect them all, but that is not an issue here.

Good Luck
--------------
As a circle of light increases so does the circumference of darkness around it. - Albert Einstein

 

[melaniews]

Thanks Cajun

It works great! and is useful in other areas as well.

Thanks,
Melanie