VBA Filter problem

[Moss100]

Can someone help me with the following, which is not working for me.

Thank you Mark

Me.Form.Filter = [Ten_Lease_Start_Date] < DateAdd("yyyy", -6, Int(Now()))

 

[dhookom]

What makes you think it's not working?
Have you tried just Date() in place of Int(Now())?

Duane
Minnesota
Hook'D on Access
MS Access MVP 2001-2016

 

[combo]

The code sets True/False to Filter, a string should be instead:
Me.Form.Filter = "[Ten_Lease_Start_Date] < " & DateAdd("yyyy", -6, Date())

combo

 

[Andrzejek]

I my opinion, the safest way to do it is:

Dim strFilter As String
...
strFilter = "Ten_Lease_Start_Date < " & DateAdd("yyyy", -6, Date())
Debug.Print strFilter
Me.Form.Filter = strFilter

So you can actually SEE your filter before you apply it.

BTW, you do not need [] around your field's name if you do not use spaces or reserved words in your fields' names.

---- Andy

"Hmm...they have the internet on computers now"--Homer Simpson