ComboBox used for filter

[Guest]

What is the code for filtering a form based on the contents of a combo box
in the form's header after it is updated or if another button is clicked. No
subform involved. This must be very basic-what am I missing?

 

[Brian Bastl]

gg,

If you add a combo control to the header section while the wizard button is
depressed, it will give you three options. Select the third option: "Find a
record on my form......". Once you're finished, open the property sheet for
your newly created combo, click the 'Events' tab, and click the button to
the far right on the AfterUpdate line. Your code will look like the
following:

Private Sub YourCombo_AfterUpdate()
' Find the record that matches the control.
Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[ID] = " & Str(Me![YourCombo])
Me.Bookmark = rs.Bookmark

End Sub

HTH,
Brian