Button to filter a form for current month and year

[SepieSmith]

Hello everyone,
For the life of me - I have no idea why this code returns records "year-to-date" instead of just the current month. I've been beating my head for 2 days trying to find something else on the net but everyone seems to be answering the same thing I coded - only that for everyone else it seems to work!

any thought what I should change in order to get records just from the current month (and current year) ?



Private Sub btnCurrentMonth_Click()

Me.Filter = "[QuoteSent] =" & True & " And [NoPotential]=" & False & " And [DocsReceived]=" & False & " And [LeadDate] Between #" & DateSerial(Year(Date), Month(Date), 1) & "# And #" & DateSerial(Year(Date), Month(Date), 31) & "#"

Me.FilterOn = True
End Sub

Thank you in advance!

[Bob Fitz]

Maybe something like:

"[QuoteSent] =" & True & " And [NoPotential]=" & False & " And [DocsReceived]=" & False & " And Year([LeadDate]) = Year(Now()) And Month([LeadDate]) = Month(Now())"

[SepieSmith]

OMG! this is so embarrassing! Thank you Bob!!