Freedom Computers

ACCESS

Find a record that matches a control - Combo box


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

Set rs = Me.Recordset.Clone
rs.FindFirst "[CustID] = " & Str(Me![Combo18])
Me.Bookmark = rs.Bookmark
End Sub