Private Sub тест новый_LostFocus()
Dim rst As DAO.Recordset
Set rst = CurrentDb.OpenRecordset("select * from таблица")
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
End Sub