Need to filter a subform using a checkbox

[Thomasso]

Hi,

I am trying to filter my continuous subform using a checkbox (which is also placed within this subform).

This works great when using the form alone, but it does not when I work with the subform within its parent form.

Private Sub checkFiltr_AfterUpdate()
    If Me.checkFiltr.Value = -1 Then
        DoCmd.ApplyFilter , "[PoptavkyAktivni]>0"
    Else
        Me.FilterOn = False
    End If
End Sub

What do I need to change in order for this to work?



The main form is called frmTrychtyrNew and the subform is called frmTrychtyrNewFirmy.

I should also mention that the main form has multiple tabs and in each tab, there is a subform.

Thanks in advance!

Best regards,
Tomas

[Bob Fitz]

Perhaps:

Private Sub checkFiltr_AfterUpdate()
    If Me.frmTrychtyrNew.frmTrychtyrNewFirmy.Form.checkFiltr.Value = -1 Then
        DoCmd.ApplyFilter , "[PoptavkyAktivni]>0"
    Else
        Me.FilterOn = False
    End If
End Sub

[Thomasso]

Actually, the condition is not the issue, it goes through correctly (confirmed by using MsgBox in both If and Else).

The issue I have is with the [PoptavkyAktivni]>0... When the program runs, I get prompted to enter the parameter "PoptavkyAktivni" value. But only when working with the subform. If I open the subform alone, it works flawlessly.

[Micron]

"[PoptavkyAktivni]>0" is the name of a filter you have created? If not, then don't use that method because that's what it's for. Use
Me.Filter = "filter here that is like WHERE condition but without WHERE"
Me.FilterOn

If that's it, I cannot explain why it would work one way and not the other because the apply filter method is for invoking an actual filter, which is usually a saved query. It shouldn't work at all IMO.

[Gicu]

Have you tried to replace DoCmd.ApplyFilter , "[PoptavkyAktivni]>0" with

Me.Filter = "[PoptavkyAktivni]>0" 
Me.FilterOn = True

Cheers,

[Thomasso]

Thank you guys, that did the trick!

Tomas