i created a filter combo box with the following
Expand|Select|Wrap|Line Numbers
- Private Sub Combo23_AfterUpdate()
- Dim rs As Object
- Set rs = Me.Recordset.Clone
- rs.FindFirst "[win_id] = " & Str(Nz(Me![Combo23], 0))
- If Not rs.EOF Then Me.Bookmark = rs.Bookmark
- End Sub
the rowsource of the combo box is
Expand|Select|Wrap|Line Numbers
- SELECT users.win_id, users.First_Name AS [First Name], users.Last_Name AS [Last Name], users.Office
- FROM users
- ORDER BY users.Last_Name;
Thanks!