Hi,

I've been trying to affect the record source of a form but it doesn't seems to go the way i want.

here is my code
-----start code
Private Sub ChoiceList_AfterUpdate()
Dim SQLcode As String
Select Case Me.ChoiceList
       Case 1
           SQLcode = "SELECT * FROM mytbl WHERE age = 1"
       Case 2
           SQLcode = "SELECT * FROM mytbl WHERE age = 2"
       Case else
           SQLcode = "SELECT * FROM mytbl WHERE age > 2"
end Select
end sub

Private Sub GO_Click()
DoCmd.OpenForm "MyForm"
Forms!MyForm.RecordSource = SQLcode
End Sub
-------end code

If i replace, behind RecordSource, the String with one of the SQLcodes it works fine.
but then i need to adjust my entire script and it would be a mess if i need to find adjust something in present.
I thought that this could work too.

---

Answer from Richard Rost:

The problem is when your form opens, ChoiceList doesn't have a value (even though you might specify a Default value, it doesn't have one).

I would just set the RecordSource to something in the form itself (perhaps show all the records?) and then when the ChoiceList event fires as someone clicks on it, it should readjust the records shown.