Listbox adjustable columns

[chook]

Hi,



Is there anyway to make columns adjustable columns in a listbox?

I want to be able to shift the column horizontally so you can see all the text.

Thanks

[burrina]

Just edit the Column Widths.

[chook]

Just edit the Column Widths.

Yea thats how it is at the moment. But man they some big columns lol oh well..

Thanks anyway.

One more query... With a listbox you can enable the headers which i have done. I want to be able to sort by column by clicking on the header so it will sort on that column alphabetically or numerically as you can in some programs.
Is this something a listbox will allow you to do?

[burrina]

This is typically done with a command button with vba code: Here is an example:

'--------------- Code Start --------------- Private Function basOrderby(col As String, xorder As String) As Integer Dim strSQL As String 'Clear captions from command buttons ClearCaptions 'Set row source for list box strSQL = "SELECT DISTINCTROW strSalespersonID, " & _ "strSalespersonFirstName,strSalespersonLastName,st rRegion " strSQL = strSQL & "FROM tblSalespersonContact " strSQL = strSQL & "ORDER BY " & col & " " & xorder Me!lstSearch.RowSource = strSQL Me!lstSearch.Requery End Function '---------------- Code End ----------------

[chook]

Thank you i shall have a play.