I have a combo box for selecting records. The following codes are generated by microsoft.
Private Sub Combo20_AfterUpdate()
' Find the record that matches the control.
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[ItemNo] = " & str(Nz(Me![Combo20], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
This work fine, but if I have two or three records of the same thing with different qty and date order--it only bring the first record in. I can see the records in my combo box but it just doesn't update the form to the specific record that I am choosing.
Please let me know if you have other question...