Filter Subform on open

[speakers_86]

I know this shouldnt be to hard, but I haven't messed with Access in a while. Heres what I'm trying to do. On parent form open, filter subform based on a control in the subform. I want to do this from an event inside the parent form. I know it would be easier to do it inside the subform, but I want to reuse this subform again inside the same parent form without a filter, or maybe with a different filter. Here's something I was trying:

Aww...before posting this I had a small amount of success. The following code filters, but it shows no records, when it should so a few.

Private Sub Form_Current()
Me.frmHomeSub.Form.Filter = Forms![frmhome]![frmHomeSub].Form![seropen] = -1
Me.frmHomeSub.Form.FilterOn = True


End Sub

Also, is this code best off in the open event, or is current or something else better?

 

[Taruz]

Hi..

Try this..:

Me.frmHomeSub.Form.Filter = "[seropen] = -1"
Me.frmHomeSub.Form.FilterOn = True

or..:

docmd.applyfilter ,"[seropen] = -1 ","frmHomeSub"

I hope that helps..

 

[speakers_86]

Yea!!! I used your first one.

Which event is it best to put this in? Typically I would use on open, but I've seen other people commonly using on current.

 

[Taruz]

a little bit of this, your purpose is related. If you say every record, on current..

 

[speakers_86]

Hi..

Try this..:

Me.frmHomeSub.Form.Filter = "[seropen] = -1"
Me.frmHomeSub.Form.FilterOn = True

How do I add a second criteria to this?

'Sets filter for frmHomeSub
Me.frmHomeSubOpen.Form.Filter = "[seropen] = -1"
Me.frmHomeSubOpen.Form.Filter = "[issue] <>'Quarterly'"
Me.frmHomeSubOpen.Form.FilterOn = True

It seems like I need to make the first two lines into one. I tried

Me.frmHomeSubOpen.Form.Filter = "[seropen] = -1" AND "[issue] <>'Quarterly'"

But that didn't work.

 

[speakers_86]

'Sets filter for frmHomeSub
Dim strOpen As String
strOpen = "[seropen] = -1 and [issue]<> 'Quarterly'"
Me.frmHomeSubOpen.Form.Filter = strOpen