Привет всем! Прошу проверить работоспособность закладки набора записей формы в следующей конструкции. Форма с подформой - в подформе по событию двойного клика на области выделения запускается фильтр основной формы:

Public bmk As Variant 'в общем модуле

Private Sub Form_DblClick(Cancel As Integer)
bmk = Me.Parent.Bookmark
Me.Parent.Filter = "[Контакт]=" & Me.Контакт
Me.Parent.FilterOn = True
Me.Parent.OnCurrent = "[Event procedure]"
End Sub

в основной форме событие Текущая запись такая:

Private Sub Form_Current()
If Not Me.FilterOn And Not IsEmpty(bmk) Then Me.OnCurrent = "": Me.Bookmark = bmk
End Sub

При проверке форма не переходит на нужную запись, почему, не понятно пока. НО! Если Me.OnCurrent = "" убрать, то всё работает. Но причём здесь это свойство? Или это глюк? Прошу проверить аналогию.
============================================================================================================
"О, сколько нам открытий чудных готовит просвещения дух, и опыт - сын ошибок трудных, и гений - парадоксов друг, и случай - бог изобретатель" (Пушкин, однако).

http://www.sql.ru/forum/1078853/zakladka-formy-ne-rabotaet-pri-otmene-sobytiya