Here's some sample code to place behind your Command Buttons; replace all Button Names/Field Names with your actual names:
Code:Private Sub btnWithFeedback_Click() Me.Filter = "Not Isnull([Feedback])" Me.FilterOn = True End Sub Private Sub btnWithoutFeedback_Click() Me.Filter = "Isnull([Feedback])" Me.FilterOn = True End Sub
And if you want a button to restore the Form to its Non-Filtered state:Code:Private Sub btnWithoutFilter_Click() Me.Filter = "" Me.FilterOn = False End Sub
Linq ;0)>
Thanks - works!Here's some sample code to place behind your Command Buttons; replace all Button Names/Field Names with your actual names:
Code:Private Sub btnWithFeedback_Click() Me.Filter = "Not Isnull([Feedback])" Me.FilterOn = True End Sub Private Sub btnWithoutFeedback_Click() Me.Filter = "Isnull([Feedback])" Me.FilterOn = True End Sub
And if you want a button to restore the Form to its Non-Filtered state:Code:Private Sub btnWithoutFilter_Click() Me.Filter = "" Me.FilterOn = False End Sub
Linq ;0)>![]()
Glad we could help!
Linq ;0)>