Доступ к изменениям подчиненной формы Фокус на нажатии кнопки

Question

У меня есть подчиненная форма (непрерывная форма) с кнопкой в ​​каждой строке, которая фильтрует основную форму в этой записи при нажатии. Когда я нажимаю кнопку, фокус на подчиненной форме переходит на вершину (т.е. первую запись) подчиненной формы. Как я могу сосредоточиться на записи.

Другими словами, я нажимаю кнопку рядом с записью 100, и фокус меняется на запись в подчиненной форме (основная форма отображает запись 100 в соответствии с назначением). Я хочу сосредоточиться на подчиненной форме, чтобы остаться на рекорд 100.

Вот код VBA, который я использую:

Private Sub select_record_button_Click()
Me.Parent.Form.Filter = "[ID]=" & Me.ID
Me.Parent.Form.FilterOn = True
End Sub

Приведенный выше код находится в событии On Click для кнопки в подчиненной форме.

Answer 1

Вы можете попробовать это:

Держите подчиненную .SelTop свойство переменной до применения фильтра, и восстановить, как только фильтр был применен.

Он не сохранит выбранную запись в точном ряду, но будет первой записью в видимой области подчиненной формы.

Private Sub select_record_button_Click()
    Dim t As Long
    With Me
        t = .SelTop
        With .Parent.Form
            .Filter = "[ID]=" & Me!ID
            .FilterOn = True
        End With
        .SelTop = t
    End with
End Sub