ник: Ashatan
1. Распечатать - я их вообще потом в Word вставляю, этот кусок у меня вопрос не вызывает, там просто красивый формат нужен, через отчет так сделать не вышло (границы пропадают, а нужно в виде таблицы)
2. Именно :) Передаю фокус, потому что не нашла способа сделать по-другому :(
Вот код (отрывок):
For IteratorCP = 1 To NumberOfCP
Forms![Контрагенты]![ПолнНаименование].SetFocus
DoCmd.GoToRecord , , acGoTo, IteratorCP
...
Forms!Контрагенты]!Договоры.SetFocus
NumberOfContracts = Forms("Контрагенты").Controls"Договоры").Form.Recordset.RecordCount
If NumberOfContracts = 0 Then
Else
For IteratorContracts = 1 To NumberOfContracts
Forms![Контрагенты]![Договоры]![Наименование].SetFocus
DoCmd.GoToRecord , , acGoTo, IteratorContracts
Forms![Контрагенты]![Договоры]![Итоги].SetFocus
NumberOfContents = Forms("Контрагенты").Controls("Договоры").Controls("Итоги").Form.Recordset.RecordCount
If NumberOfContents = 0 Then
Else
.....
Знаю, что криво и непрофессионально :( (но надо было навоять быстро, синтаксиса не знала, что нашла - то и зашила :( )
Спасибо, что откликнулись :)))