Filtering based on selection

[Naded]

I will like to bypass the step of right clicking an item in a report to choose a text filter.

I will like to filter a report by just clicking once on an item in the report and the report filters based on that selected item.


Any help will be appreciated. Thx

[Naded]

This is what I have tried so far but have not to been successful.

Private Sub Text123_Click()

Dim prFilter As String
prFilter = "[X]='Me.Text123.Value'"
Me.Filter = prFilter

DoCmd.OpenReport "ReportName", acViewReport
Me.FilterOn = True
End Sub

[Minty]

What type of filtering ? Something like filter by current selection ?

I would use the OnClick property of the report control.
To do it properly would need a function if you wanted it to work on any column on the report, without you coding each column individually.

[Gicu]

Try:

Dim prFilter As String
prFilter = "[X]=""" & Me.Text123 &"""
Me.Filter = prFilter


DoCmd.OpenReport "ReportName", acViewReport
Me.FilterOn = True

And using a function as Minty suggested would be a very good idea, just think about how you want it to work; only apply the current selection filter vs. cumulative filtering. Also, you should probably add code to the double-click event of the controls to remove/reset the filter.

Cheers,
Vlad

[Naded]

Thanks. this is exactly what I was trying to achieve. I will take you recommendation to add a double-click to reset filter. Thanks again

[Gicu]

You're welcome! Good luck with your project!
Vlad