Combo box filter on form

[MichaelWaimauku]

I have 2 combo boxes on a form to filter records selected.

I have used these filters before on another form however they're not working on this new one and not sure why:

First one a date field lookup & second an item number lookup

Private Sub Combo23_AfterUpdate()
Me.Filter = "(([Date]) = " & Me.Combo23 & ")"
Me.FilterOn = True
End Sub

Private Sub Combo25_AfterUpdate()
Me.Filter = "(([Finished Good Item Number]) = " & Me.Combo25 & ")"
Me.FilterOn = True
End Sub

This one clears the filters:

Private Sub Command65_Click()
Me.FilterOn = False
Me.Filter = ""
Me.Combo23.SetFocus
Me.Combo23.Value = Null
Me.Combo25.SetFocus
Me.Combo25.Value = Null
Me.[BreakinID].SetFocus
End Sub

It should be returning all records for a particular date or item code selected in the combo. Instead what returns is a blank screen as if it's a new record and today' date entered. Any ideas?

 

[edtab]

Try this:

Private Sub Combo23_AfterUpdate()
Me.RecordSource = "SELECT * from youtblName WHERE DateFieldName = " & Me.Combo23
End Sub

Same goes with combo25.