Подскажите, кто знает как реализовать задачу.

На отчете отображаются четыре карточки с данными. Данные сортируются по датам, в том числе по годам. Соответственно, сортировка карточек идет по годам по возрастанию. Карточки будут разрезаться на четыре. Вопрос в том, как сделать так, чтобы при печати (и на экране) года шли соответственно - на лицевой стороне один год, на противоположной следующий год. В обычном виде сейчас года идут по возрастающей, т.е. 2006, 2007, 2008 и т.д. У каждой записи год начинается по-разному, где-то с четного года, где-то с нечетного.

Буду благодарен за идею.

ОК, сделаю...примерчик.

Простите, не успел подготовить...
Упростил пример. Надеюсь будет понятно.

http://zalil.ru/33008392

Извините, не совсем разобрался...

надо говорить о том что мы используем ДВУХстороннюю печать - в противном случае вся эта возня не имеет никакого смысла.

нужно придумать функцию "лапками" проставлять требуемую сортировку. т.к. она не стандартная первые четыре нечетные года, затем первые 4 четные года - или наоборот (хотя это не суть важно).

проще печатать в 2 столбца "с лева на право"
получаем
2005 - 2006
2007 - 2008
- сгибать страницу пополам, склеивать и разрезать.

п.с. про функцию надо подумать

должно работать
1. в глобальную переменную загоняем ГОД (первой записи)
2. пишем фукцию куда отправляем текущий год записи =Функция(Год)
3. сама функция

Год_ГЛ - наш первый год от которого танцуем (глобальная переменная )     А = Год  -  Год_ГЛ     Б= целая часть (А/8)     В= А - 8 * Б     вот тут нужно проверку на четность числа В      если четное то Г = В / 2 + 1      если не четное то           select case B               case 1                         Г = 5               case 3                         Г = 6               case 5                         Г = 7               case 7                         Г = 8     end select     Д = Г + Б * 8

Д это и ест наш номер по порядку (нашему порядку) - эту функцию нужно вставить в запрос отчета и по ней сортировать.

select tabla.* , Функция([tabla.GOD]) As Nomer_po_Porjadku From Tabla.

Спасибо, буду пробовать.

перед открытием отчета создаем нечто такое:

Public Global_Kod as Variant

загоняем в глобальную - !!! перед открытием отчета !!!!

Function Zagruzka()
set rst=currentdb.openrecordset(" select * tabla where .... orderby GOD"
Global_Kod = rst!GOD
End Function

функцию вешаем в запрос на основании которого формируется отчет
"select *, Наша_Функция (Tabla.GOD) as Nomer from tabla where ..."

сама функция
Public Function Наша_Функция (ParamArray Ar())

Year=Ar(0)
YearM=Global_Kod

и дальше по тексту
в конце ОБЯЗАТЕЛЬНО

Наша_Функция= D + B * 8

End Function

вот лови


п.с. поля и формы/таблицы/отчеты/функции лучше называть латиницей, не использовать пробелы и минуса - уменьшается возможность наступания на грабли

Как можно победить ошибку Run-time error '3061'; Too few parameters. Expected 1? Она возникает из-за того что добавляю условие отбора в поле Фамилия в запрос For_Global. Как можно было бы обойти это? Пробовал и строкой SQL - не получается.

А если не ставить условие отбора в запросе, то вся наша затея превращается в кашу. Рекордсет обращается в неотфильтрованном запросе к первой записи. но эта запись не принадлежит нужному человеку - там все записи в куче. Данные для условия отбора передаю через форму.
'----------------------
Public Global_Kod As Variant
Public GlobalKod As Variant


'загоняем в глобальную

Function Zagruzka()
Dim rst As Recordset
Dim strSQL As String
Dim Year1 As Variant
Set rst = CurrentDb.OpenRecordset("for_global") ' вот тут возникает ошибка:"Слишком мало 'параметров ....."
Global_Kod = Year(rst!Дата)
End Function

Конечно, в это время у меня форма открыта.
Я проблему решил немного по-другому. В функции Zagruzka() убрал рекордсет и попробовал через DLookup и работает (как ни странно!). И теперь достаточно одного было запроса - теперь не нужен запрос For_Global.
Теперь все работает. Спасибо, что не бросил меня...

а ещё лучше делаем вспомогательну функцу для запроса

public Function   MyFunction () as string  if nz(МОЯ_ФОРМА ! ID_Pipla) <> "" then     MyFunction=  МОЯ_ФОРМА ! ID_Pipla  else     msgbox "Чё та не то!"  end if end Function =============================================== "select * from tabla where ID_Pipla =" &  MyFunction ()

ага

Мы вроде бы уже разбирали етот вопрос и тогда выяснили, что всё пучком?
==================================================================

Тебе виднее.