Select Case

[PatAccess]

Hello,
I have the following Code:

Private Sub grpRprt_AfterUpdate()
With lstOptions
Select Case grpRprt
Case 1
.RowSourceType = "Table/Query"
.RowSource = "Qry_StatesTest"
.Enabled = True
.Value = ""
Case 2
.RowSourceType = "Table/Query"
.RowSource = "Qry_PE"
.Enabled = True
.Value = ""

End Select
End With

End Sub

But when I click on my options I see the list box shrink and expand but I see now value.

What am I missing Please? :banghead:

Thank you

 

[moke123]

try .Value = null

 

[PatAccess]

I tried that and it wasn't working so I just deleted the list box and redid it
Also I had to change the rowsouce from table/query to Value list in the properties

Thank you