form filter via vba/macro

[georg7]

Good morning guys,
I would like to have the form filtered using a button. For example, if I press filter 1, NM should be filtered to ZN.(Form.png)
I've read many threads but couldn't get it to work...
May some of you guys can help me.

Appreciate it!

Best regards
Georg

 

[bob fitz]

Give us an example of something you tried

 

[georg7]

Private Sub Filter1()
Me.Filter = "NM = 'ZN'"
Me.FilterOn = True
End Sub



I've to admit that i'm not very confident with vba in Access.

 

[bob fitz]

Private Sub Filter1()
Me.Filter = "NM = 'ZN'"
Me.FilterOn = True
End Sub



I've to admit that i'm not very confident with vba in Access.

In which event

 

[georg7]

I wrote it in the VBA Code of button "Filter 1".

 

[bob fitz]

I wrote it in the VBA Code of button "Filter 1".

Was it in the buttons "On Click" event

 

[georg7]

Yes

 

[bob fitz]

Have checked that the code does actually fire when the button is clicked

 

[Gasman]

Yes

PMFJI, but if you had put that in the click event of the button, the name of the Sub would reflect that.?

 

[georg7]

@Gasman I hadn't the exact Code, but i'm 100% sure that i did it onclick!

@bob fitz so it worked for you?

 

[georg7]

Does it matter if the subform is a query?

 

[bob fitz]

PMFJI, but if you had put that in the click event of the button, the name of the Sub would reflect that.?

Indeed, which is why I asked about the code actually running as I would expect an error message if it did. From the picture posted by the OP the button appears to be on a main form

 

[bob fitz]

Does it matter if the subform is a query?

It matters that it is a sub form. What is the name of the sub form control

 

[georg7]

The query is called Test1 and the Sub form is called Test1-Unterformular

 

[bob fitz]

Try

Me!Subform1.Form. [Test1-Unterformular].Filter = "NM = 'ZN'" Me!Subform1.Form. [Test1-Unterformular].FilterOn = True

 

[bob fitz]

BTW
I wouldn't use hyphens "-" in the names of objects

 

[georg7]

What does Subform1.form mean?
Is it the Name of the form i want the filter button on?

 

[bob fitz]

No. Sorry, Should be the name of the subform control on the main form. So try
Me![Test1-Unterformular].Form.Filter = "NM = 'ZN'"
Me![Test1-Unterformular].Form.FilterOn = True

 

[georg7]

It worked!!!!
Thank you very much, @bob fitz . You just saved my day
Appreciate it!

 

[georg7]

Do you know how to connect it with a drop down bar? Where I can pick the NM Value that should be the criteria ?