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!