перемещение по записям

Есть форма на ней кнопки перехода, обновления, добавления и удаления, а также подчиненная табличная форма. Необходимо, чтобы при изменении текущей записям в подчиненной форме, эта запись отображалась в главной форме в соответствующих полях. А при перемещении по записям с помощью кнопок перехода, менялась текущая запись в подчиненной форме (аналогично с доваблением, обновлением и удалением). (см.рис.)

Измените Источник строк (RowSource) главной формы так, чтобы условием было значение подчиненной формы. Или сделайте фильтр на гл.форму с тем же условием.

Спасибо! Но возникает проблема: управление записями подчиненной формы с помощью кнопок на главной форме. И если поставить фильтр или источник строк, то при внесении изменений в поля на главной форме они не будут вноситься в подчиненную форму!

Kis-kis

Спасибо! Но возникает проблема: управление записями подчиненной формы с помощью кнопок на главной форме. И если поставить фильтр или источник строк, то при внесении изменений в поля на главной форме они не будут вноситься в подчиненную форму!

Вы ничего не говорили как у вас взаимодействуют формы между собой. Насколько я понял из вашего вопроса, вложенная подформа никак не зависит от данных на главной.

Извините! Источником данных для главной и вложенной формы является одна и та же таблица, которую надо редактировать (добавлять, удалять, изменять записи). Кнопки уже работают для полей на главной форме, надо чтобы и для подчиненной работали. А также изменения в подчиненной форме изменяли данные в главной.

Kis-kis

Кнопки уже работают для полей на главной форме, надо чтобы и для подчиненной работали. А также изменения в подчиненной форме изменяли данные в главной.

А синхронизация позиционирования формы и субформы вас не устроит? Например, в Form_Current каждой формы смотрите - если коды текущей записи в формах отличаются, то позиционируетесь во второй форме по коду из текущей.

Спасибо за совет! Частично работает (управляется из под формы) :-)! А из главной формы нет :-(
Пишу на OnCurrent в главной форме:
Dim cod As Long
cod = Forms![главная форма].Form.CurrentRecord
If Forms!главная форма![под форма].Form.CurrentRecord <> cod Then
DoCmd.GoToRecord acDataForm, "под форма", acGoTo, cod
'Forms!главная форма![под форма].Form.CurrentRecord = cod
End If
Выдается ошибка о том, что под форма не открыта!

Kis-kis

DoCmd.GoToRecord acDataForm, "под форма", acGoTo, cod Выдается ошибка о том, что под форма не открыта!

Во-первых, DoCmd.GoToRecord выполняет переход в открытых формах, а когда некая форма у вас используется в качестве суб-формы, она не входит в список открытых форм.

Во-вторых, использование свойства CurrentRecord для синхронизации позиций возможно лишь для форм, имеющих абсолютно идентичные источники. И даже если у вас две формы основаны на одной таблице/запросе, то CurrentRecord у них может не совпадать, если применялась фильтрация или сортировка записей.

Поиск записей правильнее производить по значениям уникальных кодов (поле идентификатора записи, например счетчик), используя например методы и свойства RecordSetClone формы.

Счетчика в таблице нет, есть только уникальное ключевое поле IDBuilding. Я беру значение из поля соответствующего текущему IDBuilding, затем с помощью RecordsetClone.FindFirst ищу такую же запись в подформе, говорит нет такого метода :(
Если не трудно, можете написать кусок работающего кода?

Kis-kis

Извините! Источником данных для главной и вложенной формы является одна и та же таблица

А зачем на один источник две формы?