Синхронизация подчиненных форм

Вторник, 22 Сентября 2015 г. 16:55 + в цитатник

Проблема...

В форме есть две подчиненные ленточные формы.Источник данных у обеих одинаковый.
Нужно, что бы при перемещении по строкам в одной подчиненной форме, в другой тоже синхронно происходило перемещение. Проще говоря чтобы:
1. ID табл. источника в обеих формах был одинаковый
2. Визуально движение по записям в обеих формах было синхронным.

Я в принципе сделал, с использованием:

автор
Dim aa As Long aa = Nz(Me!F1!ID, 0) If IsLoaded("Tovar") And aa Then Set rst1 = Forms!F2.RecordsetClone rst1.Find "ID=" & aa Forms!tovar.Bookmark = rst1.Bookmark rst1.Close Set rst1 = Nothing Forms!F2!id.SetFocus End If

автор

    Dim aa As Long
    aa = Nz(Me!F1!ID, 0)

    If IsLoaded("Tovar") And aa Then
        Set rst1 = Forms!F2.RecordsetClone
        rst1.Find "ID=" & aa
        Forms!tovar.Bookmark = rst1.Bookmark
        rst1.Close
        Set rst1 = Nothing
        Forms!F2!id.SetFocus
    End If