checkbox to select all data in a listbox 1

[vba317]

I have put a checkbox on top of a listbox with rows of data in it. What I want to happen is when I check the checkbox all the rows in the listbox get selected. Right now I get no errors but nothing happens.
names: listbox - lstARlstbox checkbox - chkPosFilter
Any help would be appreciated
This is the current code:
[] code
Private Sub chkPOSFilter_Click()
Dim i

For i = 0 To lstARLstbox.ListCount - 1
lstARLstbox.Selected(i) = ChkALL
Next i

End Sub

 

[PHV]

What is ChkALL ?

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[vba317]

That was my problem I needed to rename where my data was coming from.
Thanks

 

[dhookom]

I steal code from Allen Browne for this functionality.

Duane
Hook'D on Access
MS Access MVP

 

[rekrabnai]

Hi

Ensure that the property 'MultiSelect' is set to 'Simple' or 'Extended' on the listbox and try the following code in your 'OnClick' event of the checkbox

Dim i
If chkPOSFilter.Value = True Then
For i = 0 To lstARlstbox.ListCount - 1
lstARlstbox.Selected(i) = True
Next i
Else
For i = 0 To lstARlstbox.ListCount - 1
lstARlstbox.Selected(i) = False
Next i
End If

Hope this helps


Sometimes if you want to put a nail in a piece of wood, you just gotta hit it with a hammer!!

 

[TheAceMan1]

How are ya rekrabnai . . .

Just a little crunching and I get:

[blue]   Dim lbx As ListBox, i As Integer
   
   Set lbx = Me.lstARlstbox
   
   For i = 0 To lbx.ListCount - 1
      lbx.Selected(i) = (chkPOSFilter = True)
   Next[/blue]

See Ya! . . . . . .

Be sure to see faq219-2884 [blue]Worthy Reading![/blue]
Also faq181-2886 [blue]Worthy Reading![/blue]

 

[PHV]

Even simpler:

For i = 0 To lbx.ListCount - 1
  lbx.Selected(i) = chkPOSFilter
Next

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886