Expand|Select|Wrap|Line Numbers
- Private Sub cboTag_AfterUpdate()
- 'Move to appropriate record
- Dim rs As DAO.Recordset
- If Not IsNull(Me.cboTag) Then
- 'Save before move.
- If Me.Dirty Then
- Me.Dirty = False
- End If
- 'Search in the clone set.
- Set rs = Me.RecordsetClone
- rs.FindFirst "[Tag] = '" & Me.cboTag & "'"
- If rs.NoMatch Then
- MsgBox "Not found: filtered?"
- Else
- 'Display the found record in the form.
- Me.Bookmark = rs.Bookmark
- End If
- Set rs = Nothing
- End If
- 'send focus to correct control
- Me.lstCapped.SetFocus
- End Sub