Create a button to apply select query to a form? Also 2nd button to "remove" the query filtering?

[StGermain]

Hello. Sorry for the beginners question.




I have a "Contacts Query" which selects certain records.

I would like to create a button on my "Contacts" form that will apply the "Contacts Query" as a filter . . . and only show those few records that meet the "Contacts Query" criteria.

What's the easiest way to do this?


Then another button to "CLEAR QUERY" . . . when clicked, it will remove the query filtering . . . and once again show ALL the records.

Thanks

[ssanfu]

Not really enough info...
Where does the "Contacts Query" criteria come from?


I usually have code to set the form filter and to remove the filter.
See Search criteria
Code is here

Maybe you would post your dB?

[StGermain]

Thanks for your help.

I am using the generic, simple "Contacts" database supplied with Office 365 Access.

I need a super-simple solution (NOT fancy code at the 'expert' level). I am not expert like you.

TABLE = Contacts
QUERY = Contacts Query (gets data from the Contacts table)
FORM = Contact (gets data from Contacts table)

All I need is some kind of easy FILTER ... maybe a macro? ... here is screen shot . .

[accesstos]

Hello. Sorry for the beginners question.


I have a "Contacts Query" which selects certain records.

I would like to create a button on my "Contacts" form that will apply the "Contacts Query" as a filter . . . and only show those few records that meet the "Contacts Query" criteria.

What's the easiest way to do this?


Then another button to "CLEAR QUERY" . . . when clicked, it will remove the query filtering . . . and once again show ALL the records.

Thanks

Hi!

In Click event of "AddFilter" button:

Me.RecordSource="qryContacts"

In Click event of "RemoveFilter" button:

Me.RecordSource="tblContacts"

To code the Click event of a button, in design view, right click on the button and choose "Build Event...". Paste the lines of code above between Sub and End Sub of each relevant click event procedure.

[StGermain]

That works great!

Thanks so much.

Very clever!

[accesstos]

You are welcome!

Good luck with your project,
John

Edit: You could use a checkbox in place of buttons, with the code below for its AfterUpdate event:

Private Sub chkFilter_AfterUpdate()
    If Me.chkFilter Then
        Me.RecordSource = "qryContacts"
    Else
        Me.RecordSource = "tblContacts"
    End If
End Sub

where chkFilter the name of the checkbox.