filter record with date

[Beppe]

Hello Access experts!
I have a textbox where I put the date dd/mm/yyyy and a filter button that filter the records as per textbox. If in the textbox there is not the entire date the result is 0 record.

I would like that the user can simply fill the textbox with only year yyyy, or month and year mm/yyyy, and the result are the records with these fields in the date.

I tried this and works with the entire date written:

Private Sub Comando157_Click()


If IsNull(Me.Testo155) Then
        Me.FilterOn = False
    Else
        Me.Filter = "DATA Like '" & Me.Testo155.Value & "*" & "'"
        Me.FilterOn = True
    End If


End Sub

Where Testo155 is the textbox where I write the date and DATA the field date of the record.

I do not know how to do the control for only year and month/year.

Please, do you have any idea?

Beppe

[ArviLaanemets]

If Len(Me.Testo155) = 2 Then
Me.Filter = "YEAR(Data) = " & CStr(2000 + CInt(Me.Testo155))
ElseIf Len(Me.Testo155) = 4 Then
Me.Filter = "YEAR(Data) = " & CStr(Me.Testo155)
ElseIf Len(Me.Testo155) = 6 Then // Use format yyyymm for year and month, as otherwise you'll have a text in combo
Me.Filter = "YEAR(Data) = " & Left(CStr(Me.Testo155),4) & " AND MONTH(Data) = " Right(CStr(Me.Testo155),2)
ElseIf Len(Me.Testo155) = 10 Then
Me.Filter = "Data = " & CInt(Me.Testo155) // In case Data is date, not Datetime. Or place date text between # characters.
Else
Me.FilterOn = False

[June7]

DATA is a text type field?

Try using second wildcard:

Me.Filter = "DATA Like '*" & Me.Testo155.Value & "*'"

However, using a single input control depends on user correctly entering date structured with /'s. Better to input month and year in separate controls (maybe comboboxes) and use code to dynamically construct filter criteria.

Review http://allenbrowne.com/ser-62.html