поиск записи после обновления

[smoky]

Столкнулся с такой проблемой. Форма для правки наличия инвентаря. Есть много названий инвентаря, но количество может быть и 0 и любое число больше нуля. При редактировании значения поля (количество инвентаря) в статусной строке access появляется сообщение "Объект Recordset не является обновляемым". Поле само не правил, как то ошибка сама появилось после добавления двух кнопочек "Выводить пустые - нет, да" для того что бы выводить соответственно наименования с количеством более 0 или больше или равно 0. Но это все вступление. Чтобы не мучаться я решил проблему так: создал рядом с количественным полем кнопочку на открытие формы в которой и буду править само количество. Сделал. Все открывается, запись находится, правлю. Рядом кнопка с макросом на сохранение и закрытие формы. А вот дальше самое интересное и проблемное - хочется чтобы после закрытия этой формы происходил вывод редактируемой записи. Казалось бы довольно все просто - в макросе (на кнопке) прописал после команды на закрытие команду "ПерейтиК форме inventory". Задал "Обновить". Происходит обновление формы и переход к первой записи. Вот теперь вопрос - как мне вернуться к редактируемой записи при помощи макроса? порывшись в интернете нашел только http://www.sql.ru/forum/actualthread...1&hl=&#6769381 вот это... но как прикрутить к моей форме не знаю ибо бейсик для меня пока темный лес если макросом никак, то буду прикручивать сюда кусок бд (надо упрощать форму, ибо на ней много чего лишнего висит). если у кого есть готовый кусок бд с реализованной данной опцией - буду рад "ради поизучать"

[smoky]

как говорится - сам задал, сам и отвечу, мало ли кому пригодится. Прикрутил на форме с инвентарем кнопку refresh. на нажатие прикрутил следующий скрипт:

Private Sub refresh_Click()
Dim rst As DAO.Recordset, n
Set rst = Me.Form.RecordsetClone
n = Me.id_inv
Me.Requery
rst.FindFirst "[id_inventory] = " & n
If Not rst.EOF And Not rst.BOF Then
Me.Form.Bookmark = rst.Bookmark
End If
End Sub

просьба к общественности - поругайте код. но у меня все работает отлично!