Unbound Combo Box Filter On Planning Database

[bogushs]

HI THERE. IM HAVING A FEW PROBLEMS TRYING SORT THIS PROBLEM OUT. I HAVE A DATABASE IM TRYING TO APPLY A FILTER ON THROUGH AN UNBOUND COMBO BOX. WHEN SELECTING THE DROP DOWN FILTER TO SORT THE RECORDS NOTHING HAPPENS. THE CODE IM USING IS
Private Sub Combo??_AfterUpdate ()
'Find the record that matches the the control
Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[WARD_AREA] = '" & Me! [Combo??] & " ' "
If Not rs.EOF Then.Bookmark = rs.Bookmark
End Sub

Does anyone know why this filter is not sorting through the records. Any comments much appreciated!!

Attached is the database

 

[ScottGem]

First that code is for searching for a particular record, not filtering a recordset. Second you need to look at what the bound column is for Combo??. The code is setup for a text string.