Macro ApplyFilter Not Working...

[Lobo]

Basically I made a search function for a form that split between a form and a query. I added a text box (Text 17) and a button. I then assigned the button to on click preform the event embedded marco, which was set to applyfilter. Where condition = [Username (Forum)] Like "*" & [Forms]![Search]![Text 17] & "*" Or [Forum ID] Like "*" & [Forms]![Search]![Text 17] & "*" Or [Rank] Like "*" & [Forms]![Search]![Text 17] & "*". I have looked over the form location many times to ensure the addresses are correct. Right now my mind is blown as to why it's not working. Basically whenever I click on the command nothing happens, the applyfilter button activates but apart from that nothing happens. I'll provide screen shots of all the code. I will also add that is did work for 10 minutes then stopped for some reason.

[ranman256]

try the filter without all the ORs.

[andy49]

I think that your [text17] will return a text value and therefor needs to be given extra quotes to ensure it's read as a string.

Have you tried setting up a string
Dim criteriastring as string
Criteriastring = [username etc....
Debug.print criteriastring
Stop

Then run the program and copy the criteria string and pasting in the sql window of a new query.

That way you'll see what's wrong and be able to edit it



Sent from my iPhone using Tapatalk

[Lobo]

So extra quotes around the "*" or [Text 17]? I would try and set up a string but I've never used the visual basic side of access before.

[aytee111]

Being unfamiliar with macros I could not get it working - however, this is what you would have if you change the OnClick to an Event Procedure:

 
Me.Filter = "[Username (Forum)] Like ""*" & Forms!Search![Text17] & "*"" Or [Forum ID] Like ""*" & Forms!Search![Text17] & "*"" Or [Rank] Like ""*" & Forms!Search![Text17] & "*"""
Me.FilterOn = True
Me.Requery

[Lobo]

Thanks it works. Though I don't quite undestand why it didn't work through the embedded macro that is basically doing the same.

[aytee111]

It is all in the quotes! Here is a good article on it: http://allenbrowne.com/casu-17.html

[Lobo]

When ever I tried to add quotes access stated the where condition was invalid .

[aytee111]

Me too! That is why I gave up trying to get the macro working, far easier to get what you want in VBA. Time to get your feet wet with VBA anyway!