If rst.EOF Or rst.BOF Then Exit Sub rst.MoveFirst rst.FindFirst "='" & Me. & "'" If rst.NoMatch Then Exit Sub Me.Undo Me.Bookmark = rst.Bookmark
http://www.sql.ru/forum/1213037/poisk-v-forme