With help from forum members I have been successful in setting up filters in my form. Things have worked fine with text, but I cannot get this date control to filter. What am I doing wrong?
Code:Private Sub Date_KeyDown(KeyCode As Integer, Shift As Integer) Dim strDateFilter As String '114 = F3 key If KeyCode = 114 Then strDateFilter = Me.ActiveControl.SelText Me.Filter = "[Date] Like " & "#" & strDateFilter & "#" Me.FilterOn = True End If End Sub