filter question

[didacticone]

i have a form where i can filter results using the following code

'CheckFilter produces the new Filter depending on the values currently in
'txtFindAccountCode, txtFindCreationDate & cboFindAccountType.
Private Sub CheckFilter()
    Dim strFilter As String, strOldFilter As String
 
 strOldFilter = Me.Filter
    'txtFindCreationDate - Date
    If Me!yearsearch > "" Then _
        strFilter = strFilter & _
                     " AND ([Date1]Like '" & _
                    Me!yearsearch & "*')"
 
   'Tidy up results and apply IF NECESSARY
    If strFilter > "" Then strFilter = Mid(strFilter, 6)
    If strFilter <> strOldFilter Then
        Me.Filter = strFilter
        Me.FilterOn = (strFilter > "")
 
    End If
End Sub

then i have a button coded with "call checkfilter" to filter the results.

i am only looking to filter results by year but my date field is formatted like this "1/1/2010" is there any way i can search for just a four digit year? currently i am doing */*/2010 to find results for 2010...i would prefer to just type 2010... thanks!

[MikeTheBike]

@didacticone
Hi

Try changing the filter criteris to this

strFilter = strFilter & " AND (Year([Date1]) = " & Me!yearsearch & ")"

where Me!yearsearch is an integer year.

HTH


MTB