Updating ListBox from OptionGroup

[dssrun]

I am having trouble with this code. When I click on "Form View", and hit the appropriate option button, my listbox AfterUpdate() is blank. However, when i submit the form the value shows up in my database that is in the listbox because I can select different blank rows in my listbox.

Private Sub Frame24_AfterUpdate()

Dim MySQL As String
Dim MyCriteral As String

MySQL = "SELECT Facility FROM Facilities WHERE " & MyCriteria
    
Select Case Me.Frame24
        Case Is = 1   
            MyCriteria = "System = ""Customers"" "
        
        Case Is = 2
            MyCriteria = "System = ""Employer"" " 
    
End Select

Me.List35.RowSource = MySQL & MyCriteria
    
End Sub

[NTC]

MyCriteria is already in the MySql statement...not sure why you append it separately again.... shouldn't it be?:

Me.List35.RowSource = MySQL

[dssrun]

Odd, I tried this code on another computer and it worked. For some reason you need the MyCriteria at the end of the code or it won't work.

[NTC]

maybe because the first appearance of MyCriteria (inside the MySQL) there is yet no defined value.......

you might put the Case code above the MySQL statement so that MyCriteria is defined first.....and then is placed inside MySQL

although as I type this it doesn't seem like it should matter....but I would give it a shot....