I need a bit of help with lookup code
The following works well, it brings up a list box by application number
Private Sub Search__AfterUpdate()
Dim rs As Object
Set rs = Me.RecordsetClone
rs.FindFirst "[appl_no] = '" & Me![search#] & "'"
Me.Bookmark = rs.Bookmark
End Sub
The problem is say that it find 20 records with the same application number, the code will not define in what order the 20 records are shown. I want them shown in recieved date order or [rec_date]. Thanks, Greg
The following works well, it brings up a list box by application number
Private Sub Search__AfterUpdate()
Dim rs As Object
Set rs = Me.RecordsetClone
rs.FindFirst "[appl_no] = '" & Me![search#] & "'"
Me.Bookmark = rs.Bookmark
End Sub
The problem is say that it find 20 records with the same application number, the code will not define in what order the 20 records are shown. I want them shown in recieved date order or [rec_date]. Thanks, Greg