Advertisement
Advertisement
| 05.08.2008 at 03:38PM PDT, ID: 23387940 |
|
[x]
Attachment Details
|
||
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: |
Option Compare Database
Private Sub cboSortbyLocation_AfterUpdate()
' Find the record that matches the control.
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[Location] = " & Str(Nz(Me![cboSortbyLocation], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub
|