Form - Filter 1

[Adams]

I have created a form and would like to filter some data. I have use the Toolbox to create a Command Button Apply Form Filter. How do I link the button to the field I would like to filter?

 

[greely]

in the onClick event of the button use the following code

me.filter="YourFilterField=" & YourFilterValue
me.filterOn = True

replace YourFilterField and YourFilterValue with the appropriate field name and value

 

[greely]

Thought I might add for your reference:

The code in my first post is if your filter is numeric
if your filter is a string use the following:

me.filter="YourFilterField='" & YourFilterValue & "'"
me.filterOn = True

The single quotes designate the string value

if your filter is a date, use:

me.filter="YourFilterField=#" & YourFilterValue & "#"
me.filterOn = True

The hash marks designate the value as a date in access

 

[Pampers]

Hi Greely
Have a hard time trying to get a filter to work.

I tried to filter my form on the string mba, but it says 'variabel not defined'.

Private Sub Form_Load()
    Me.Filter = "StudieRichting='" & mba & "'"
    Me.FilterOn = True
End Sub

Pampers.

You're never too young to learn

 

[greely]

You have to declare your mba variable
Try:

Private Sub Form_Load()
dim mba
Me.Filter = "StudieRichting='" & mba & "'"
Me.FilterOn = True
End Sub

 

[greely]

Looking at it again, you may not have intended mba to be a variable but the actual string, in which case:

Private Sub Form_Load()
Me.Filter = "StudieRichting='" & "mba" & "'"
Me.FilterOn = True
End Sub

You might want to search this site or others for a tutorial on string handling (concatenation). You'll use it a lot.

Good Luck

 

[Pampers]

tnx a lot greely,
you intended right, i meant it as a string, so this was the correct code:

Me.Filter = "StudieRichting='" & "mba" & "'"

It is so confusing with alle the ""'"'!!!!!!!!!
I used you other line of code also for a filter in a combo
looks like:

Private Sub cboStudieRichting_AfterUpdate()
    Me.Filter = "StudieRichting='" & cboStudieRichting & "'"
    Me.FilterOn = True
End Sub

Pampers.

You're never too young to learn