Filtered Records...I only want those

[mission2java]

Simple problem..
main form .. sub form...
I filter by right clicking in the sub form field and select "Filter By Selection" now I click a button to just loop through the FILTERED recordset..but it keeps showing me all the records..I just want the FILTERED records on the screen.

Set db = CurrentDb

strSQL = "SELECT * FROM Table1 WHERE '" & Forms!Form1!frmSubForm.Form.Filter & "'"


Set rs = db.OpenRecordset(strSQL)

If rs.BOF Then
'do nothing
Else
While Not rs.EOF
MsgBox rs("First&quot.Value
rs.MoveNext
Wend
End If

This does not work

Anyone?????

Jon

 

[mission2java]

In the immediate window it shows:
?strSQL
SELECT * FROM Table1 WHERE '(([Table1 subform].Hobby="Baseball&quot)'

Which goes through..but it displays all the records..not just the filtered ones...

jon

 

[Andy37]

I think the problem could be the quotes you've got around the WHERE clause ?
ie use:
strSQL = "SELECT * FROM Table1 WHERE " & Forms!Form1!frmSubForm.Form.Filter

 

[mission2java]

IF I dont have the quotes it says "expected 1" and errors out.

Jon