Option Group Filtering - problem

[Moe]

Hi, this my first post to this group. I am trying to add a option
group of ture/false and all. This is on a form, that the results are
displayed in a subform. When the user select a record from the last
combo box, (I have three combo boxes that filter into the next), and
when the last is selected it shows results in the subform. Now I want
the optiongroup to further filter the data. So far I am not able to
get the option group to work. This is what I have in the afterupdate
of the last combobox. Any help is much appreciated.

Rene
Dim strSQL As String
Select Case grpFilter
Case 1 'yes
strSQL = "=1"

Case 2 'No
strSQL = "=0"

Case 3 'All
strSQL = "IN(-1,0)"

Me.subQryP.Form.Filter = "DugStatus" & strSQL
Me.subQryP.Form.FilterOn = True

End Select

[Br]

Moe wrote:

Hi, this my first post to this group. I am trying to add a option
group of ture/false and all. This is on a form, that the results are
displayed in a subform. When the user select a record from the last
combo box, (I have three combo boxes that filter into the next), and
when the last is selected it shows results in the subform. Now I want
the optiongroup to further filter the data. So far I am not able to
get the option group to work. This is what I have in the afterupdate
of the last combobox. Any help is much appreciated.

Rene
Dim strSQL As String
Select Case grpFilter
Case 1 'yes
strSQL = "=1"

Case 2 'No
strSQL = "=0"

Case 3 'All
strSQL = "IN(-1,0)"
That's redundant. Just leave it blank (ie. strSQL = "")

(unless you are dealing with Null values as well?)
Me.subQryP.Form.Filter = "DugStatus" & strSQL
Me.subQryP.Form.FilterOn = True

End Select

Not sure why it's not working. What happens, if anything, when you use it?
(ie. a better explanation then "it doesn't work" :)

Another way to do it woul be to just change the RowSouce of the form?

eg.

Me.subQryP.Form.RowSource = _
"Select * FROM myTable WHERE [DugStatus] = " & strSQL & ";"

--
regards,

Br@dley