how to display the data from a query into separate list boxes

[ice051505]

I have one query and 4 list boxes, and I need to put the 4 different fields in this query into these 4 list boxes. I have the code below, somehow, my list boxes give me nothing.

Below is my code of the optional group which pops up the list box
Private Sub ArLevl_Click()

Select Case Me!ArLevl
Dim sSQL1 As String
Dim sSQL2 As String
Dim sSQL3 As String
Dim sSQL4 As String

Case 1
sSQL1 = ("SELECT [AreaQuery_Step1].[TotalArea] FROM [AreaQuery_Step1] ORDER BY [TotalArea];)")
Me.Slc_MED.RowSource = sSQL1
Me.Slc_MED.Visible = True
Me.Slc_SMA.Visible = False


Me.Slc_SMR.Visible = False
Me.Slc_SMT.Visible = False
Case 2
sSQL2 = ("SELECT [AreaQuery_Step1].[SmallArea] FROM [AreaQuery_Step1] ORDER BY [SmallArea];)")
Me.Slc_SMA.RowSource = sSQL2
Me.Slc_MED.Visible = False
Me.Slc_SMA.Visible = True
Me.Slc_SMR.Visible = False
Me.Slc_SMT.Visible = False
Case 3
sSQL3 = ("SELECT [AreaQuery_Step1].[SmallerArea] FROM [AreaQuery_Step1] ORDER BY [SmallerArea];)")
Me.Slc_SMR.RowSource = sSQL3
Me.Slc_MED.Visible = False
Me.Slc_SMA.Visible = False
Me.Slc_SMR.Visible = True
Me.Slc_SMT.Visible = False
Case 4
sSQL4 = ("SELECT [AreaQuery_Step1].[SmallestArea] FROM [AreaQuery_Step1] ORDER BY [SmallestArea];)")
Me.Slc_SMT.RowSource = sSQL4
Me.Slc_MED.Visible = False
Me.Slc_SMA.Visible = False
Me.Slc_SMR.Visible = False
Me.Slc_SMT.Visible = True

End Select
End Sub

Please help me to make it work!
Thanks!

[jzwp11]

You have extraneous parentheses in your query text (all four) that may be causing an issue. The query text should just be simply bounded by the double quotes


sSQL1 = ("SELECT [AreaQuery_Step1].[TotalArea] FROM [AreaQuery_Step1] ORDER BY [TotalArea];)")

[ice051505]

Tkz, jzwp11, It worked! Finally.....I got it

You have extraneous parentheses in your query text (all four) that may be causing an issue. The query text should just be simply bounded by the double quotes


sSQL1 = ("SELECT [AreaQuery_Step1].[TotalArea] FROM [AreaQuery_Step1] ORDER BY [TotalArea];)")

[jzwp11]

Glad you got it sorted out.