Filter a multi-column listbox

Question

Hello.

I am trying to filter a multi column iistbox using a textbox.  The way i had it before worked but it only displays one column, however i need it to display three columns.  i had it to where it would display just the Task Title column, now I need it to display the Task type title and Task Number title.  

Thanks for any help in advance

This is my Code -

Private Sub txtSearchTasks_Change()
    Dim StrSource As String
    StrSource = "SELECT Task_Type.Title, Training_Tasks.Title, Training_Tasks.Task_Number" & _
                "FROM Task_Type INNER JOIN Training_Tasks ON Task_Type.ID = Training_Tasks.Task_Type.Value;" & _
                "WHERE Training_Tasks.Task Like '*" & Me.txtSearchTasks.Text & "*'"
                Me.lstIndvidualTasks.RowSource = StrSource
    
End Sub

---

olu Solaru

Answer 1

Are you sure that the Column Count property of the list box has been set to 3?

And if so, that the Column Widths property is either blank, or it specifies non-zero column widths?

---

Regards, Hans Vogelaar (http://www.eileenslounge.com)

Answer 2

I think this will solve your problem.

Private Sub txtSearchTasks_Change()
    Dim StrSource As String

  Me.txtSearchTasks.SetFocus

  Me.lstIndvidualTasks.ColumnCount = 3

    StrSource = "SELECT Task_Type.Title, Training_Tasks.Title, Training_Tasks.Task_Number" & _
                "FROM Task_Type INNER JOIN Training_Tasks ON Task_Type.ID = Training_Tasks.Task_Type.Value;" & _
                "WHERE Training_Tasks.Task Like '*" & Me.txtSearchTasks.Text & "*'"
         

      Me.lstIndvidualTasks.RowSource = StrSource
      Me.lstIndvidualTasks.Requery

      Me.txtSearchTasks.SetFocus

End Sub

The line Me.lstIndvidualTasks.ColumnCount = 3  tell the list to show three columns

Asaf