Hello everyone,
I have a form that is connected to a table called floods that has a date column as mm/dd/yyyy. I want to filter my form but only by the year. When I try to filter it nothing happens, i don't even get an error. Below is the code if anyone could help in this matter it would be greatly appreciated.
Thanks

Code:
Private Sub FindYear_AfterUpdate()

Me.FindYear = IIf(IsDate(Me.FindYear), _
Format(Me.FindYear, " yyyy"), _
"")


Dim strFilter As String, strOldFilter As String

strOldFilter = Me.Filter

'txtFind - Date
If Me.FindYear > "" Then _
strFilter = strFilter & _
" AND ([eventdatestart]=" & _
Format(CDate(Me.FindYear), _
"\#m/d/yyyy\#") & ")"
If strFilter > "" Then strFilter = Mid(strFilter, 6)
If strFilter <> strOldFilter Then
Me.Filter = strFilter
Me.FilterOn = (strFilter > "")
End If
End Sub

Check what you have in "strFilter" after the line:
If "eventdatestart" is defined as Date/Time, filtering by year means (with 'YYYY' being the chosen year):
and this only if the Time part is set to '00:00:00' (or is not stored), otherwise the upper limit must be: '#12/31/YYYY 23:59:59#', or you must change the comparison to:

So i changed the eventdatestart so that it is between the first and end of the year but the code still does not work. What do you mean by Check what I have in "strFilter" after the line..?

Set a breakpoint on the line following it (F9 key), when the code halts open the debug window (Ctrl+G) then in this debug windows type:
and hit the Enter key. The value of strFilter will be printed on the next line in the debug window.

I did this and it highlighted this: If strFilter > "" Then
I don't know what that means. If you could help again that would be great.
Thanks

The line where to place the breakpoint is:
What was displayed in the debug window?

nothing was displayed, it just highlights the line.

This cannot be if you opened the Debug window and typed "debug.print strFilter" into it, except if "strFilter" is an empty string.

Well I did what you said so I guess it is an empty string. Do you know what causes that or how I can fix it? because I do not know how that happened.
Thanks for all your help.

In the code you posted, there is a condition to be met before assigning something to strFilter:
Obviously, it is not. What does Me.FindYear contain?