Filter not working in Navigation Form

[momoko]

Hi,
I inherited this quote and trying to enhance it but having problem.

The filter in navigation form is not working but it is on its own form, the filter is working without problem. Would greatly appreciate any help.

 

[JHB]

You can't use DoCmd.ApplyFilter to a subform.
Here is the link to the description of it:
http://support.microsoft.com/kb/112796/en-us

 

[momoko]

Thanks for your reply. However I really don't know how to change the code to make it work.

 

[JHB]

I've made a sample for you in the attached database.

Private Sub SelectItem_AfterUpdate()
  ChooseSelectItem "Demand", Me![Selection], Me![SelectItem], Me![Operator], Me![filter], Me![totalfilter], True[B][COLOR=Red], Me[/COLOR][/B]

End Sub

Sub ChooseSelectItem(Target As String, Selection As Control, SelectItem As Control, Operator As Control, filter As Control, totalfilter As Control, RecordsOn As Integer[B][COLOR=Red], TheForm As Object[/COLOR][/B])
    .....
    If RecordsOn Then
[B][COLOR=Red]      TheForm.Form.filter = "" & totalfilter & " " & filter
      TheForm.Form.FilterOn = True
[/COLOR][/B]    End If
    ....

 

[momoko]

Thanks a zillion!!! you really saved me!

 

[JHB]

You're welcome.