Access 2010 - List Box Changing Order in which I ask it to

[Parker]

Hello everyone,


I have a list box and a series of 11 fields a user can search by. My problem is that the
List Box has changed the column order.

Example: In the design wizard of the list box I had it such that the columns were in order 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11

Now after I hit search the fields populate out of order... 4, 9, 2, 1, etc...


Anyone know and easy fix for this?

[Parker]

This is how my form looks with list box

[ItsMe]

Your search button changes the RowSource for your listbox?

Maybe you can adjust the order of the SQL SELECT statement that is generated by your search button.

[Parker]

Private Sub Search_Fields_Click()
RequeryReportList
End Sub
Private Sub RequeryReportList()
Dim Wh As String
Dim SQL As String
Wh = ""
If First_Name <> "" Then
If Wh <> "" Then Wh = Wh & " " & AndOrCombo & " "
Wh = "First_Name LIKE '*" & First_Name & "*'"
End If
If Last_Name <> "" Then
If Wh <> "" Then Wh = Wh & " " & AndOrCombo & " "
Wh = "Last_Name LIKE '*" & Last_Name & "*'"
End If
If Date_Report_Submitted <> "" Then
If Wh <> "" Then Wh = Wh & " " & AndOrCombo & " "
Wh = "Date_Report_Submitted LIKE '*" & Date_Report_Submitted & "*'"
End If
If Report_Title <> "" Then
If Wh <> "" Then Wh = Wh & " " & AndOrCombo & " "
Wh = "Report_Title LIKE '*" & Report_Title & "*'"
End If
If Report_History_Type <> "" Then
If Wh <> "" Then Wh = Wh & " " & AndOrCombo & " "
Wh = "Report_History_Type LIKE '*" & Report_History_Type & "*'"
End If
If Approved <> "" Then
If Wh <> "" Then Wh = Wh & " " & AndOrCombo & " "
Wh = "Approved LIKE '*" & Approved & "*'"
End If
If Department_Number <> "" Then
If Wh <> "" Then Wh = Wh & " " & AndOrCombo & " "
Wh = "Department_Number LIKE '*" & Department_Number & "*'"
End If
If Abstract <> "" Then
If Wh <> "" Then Wh = Wh & " " & AndOrCombo & " "
Wh = "Abstract LIKE '*" & Abstract & "*'"
End If
Me.RecordSource = SQL
SQL = "SELECT * FROM SearchDBQ WHERE " & Wh
ReportList.RowSource = SQL
End Sub
Private Sub Clear_Fields_Click()
First_Name = ""
Last_Name = ""
Date_Report_Submitted = ""
Report_Title = ""
Report_History_Type = ""
Approved = ""
Department_Number = ""
Abstract = ""
ReportList.RowSource = ""
End Sub
Private Sub ReportList_DblClick(Cancel As Integer)
If IsNull(ReportList) Then Exit Sub
DoCmd.OpenForm "NewLabReportF", , , "Report_ID= ReportList"
End Sub



This is all of my code

[Parker]

This is row source on list box:


SELECT [SearchDBQ].[Department_Number], [SearchDBQ].[First_Name], [SearchDBQ].[Last_Name], [SearchDBQ].[Date_Report_Submitted], [SearchDBQ].[Report_Title], [SearchDBQ].[Report_History_Type], [SearchDBQ].[Approved] FROM SearchDBQ;



I want list box to have the following order:

Department NUmber
First Name
Last Name
Date Report Submitted
Report Title
Report History Type
Approved

[ItsMe]

Your issue is here
Me.RecordSource = SQL
SQL = "SELECT * FROM SearchDBQ WHERE " & Wh
ReportList.RowSource = SQL

So maybe

SQL = "SELECT [SearchDBQ].[Department_Number], [SearchDBQ].[First_Name], [SearchDBQ].[Last_Name], [SearchDBQ].[Date_Report_Submitted], [SearchDBQ].[Report_Title], [SearchDBQ].[Report_History_Type], [SearchDBQ].[Approved] FROM SearchDBQ WHERE " & Wh
ReportList.RowSource = SQL

[Parker]

Where do I type that in or make the changes?

[Parker]

Solved thank yoU!

[ItsMe]

Sure thing