What I am trying to do is create a filtering rule that filters out all but the values selected in any/all the combo-boxes, while allowing navigation to all the records that match the criteria in the combo boxes.
Here is the very basic filtering rule I have created, but does not seem to be functioning:
Expand|Select|Wrap|Line Numbers
- Sub CAR_AfterUpdate()
- Dim rs As DAO.Recordset
- If Not IsNull(Me.CAR) Then
- 'Save before move.
- If Me.Dirty Then
- Me.Dirty = False
- End If
- 'Search in the clone set.
- Set rs = Me.RecordsetClone
- rs.FindFirst "[CAR] = """ & Me.CAR & """"
- If rs.NoMatch Then
- MsgBox "Not found: filtered?"
- Else
- 'Display the found record in the form.
- Me.Bookmark = rs.Bookmark
- End If
- Set rs = Nothing
- End If
- End Sub
** Edit **