Listbox - Sorting in order of selection

[aavelar]

I've created a listbox on a form to display a list of fields to be used to sort on a report. When users select from the listbox it sorts them in a number order. Is it possible to have it sort in order of which users select? Please help....

Here's my code:

Dim strsql As String
Dim strYourSQLSelectFromStatement As String
Dim strSQLWhere As String
Dim varItem As Variant
Dim strListLoanValues As String
 
    strListLoanValues = Forms!frmreport!List7.Column(0, varItem)
 
      If (Forms!frmreport!List7.ItemsSelected.Count = 0) Then Exit Function
 
      strYourSQLSelectFromStatement = ""
 
      strSQLWhere = vbNullString
 
    For Each varItem In Forms!frmreport!List7.ItemsSelected
 
    strListLoanValues = Forms!frmreport!List7.Column(0, varItem) & ", "
    strSQLWhere = strSQLWhere & strListLoanValues
 
Next varItem
 
strSQLWhere = Left(strSQLWhere, Len(strSQLWhere) - 2)  'Get rid of last comma

[NeoPa]

When you open the report you can pass a list of the fields you want to sort by in the OpenArgs parameter.
In the report's Open event procedure, you can use this list to set up the two properties SortBy & SortByOn.
Good luck.