Is there a way to select ALL in a listbox

[colezpapa]

Is there a way to select ALL in a listbox. Show ALL and then process all the items in the listbox.

I thought I saw this in some Access book...
Any ideas.

 

[PWise]

mark list as multiselect = 1 or 2

For intCurrentRow = 0 To ctlSource.ListCount - 1
   ctlSource.selected(intCurrentRow )=true
Next intCurrentRow

to select all rows

 

[Remou]

You can use a similar method to this faq702-4538

 

[genomon]

This is code that I use to process all items in a technician multi-line text box to add to an on-the-fly WHERE clause used to open a recordset later on. The concept of loading the elements into an array with the SPLIT function for processing could be used in your project:

Private Sub BuildTechWhere()

On Error GoTo TechError

    Dim arrTech() As String
    Dim intElement As Integer
    
    arrTech = Split(txtTechNum.Value, vbCrLf)
    If UBound(arrTech()) = 0 Then
        strTech = "pay_tech = '" & arrTech(0) & "'"
    Else
        strTech = "pay_tech IN("
        For intElement = 0 To UBound(arrTech())
            strTech = strTech & "'" & arrTech(intElement) & "'"
            If intElement <> UBound(arrTech()) Then strTech = strTech & ","
        Next intElement
        strTech = strTech & ")"
    End If
   
    Erase arrTech
   
    Exit Sub
    
TechError:
    MsgBox "Text box error " & Err.Number & vbCrLf & Err.Description

End Sub

Good Luck!

Before you criticize someone, you should walk a mile in their shoes.
That way, when you criticize them, you're a mile away and you have their shoes.

 

[TheAceMan1]

How are ya colezpapa . . .

have a look here 1st Adding an "ALL" option to a combo-box

See Ya! . . . . . .

Be sure to see FAQ219-2884: