ник: Чайник2007
Как сделать на основе этого куска кода чтобы если больше шести человечков- количество человечков и сумма прописью количество человечков -печатались на втором листе а на первом нет
'--------------- подсчитать количество листов
КОЛИЧЕСТВО_ЧЕЛОВЕК = 0
T_L.Seek "=", FF![Ключ]
If Not T_L.NoMatch Then
Do Until T_L.EOF
If T_L![КлючСписки] = FF![Ключ] Then
КОЛИЧЕСТВО_ЧЕЛОВЕК = КОЛИЧЕСТВО_ЧЕЛОВЕК + 1
Else
Exit Do
End If
T_L.MoveNext
Loop
End If
КОЛИЧЕСТВО_ЛИСТОВ = 1
If КОЛИЧЕСТВО_ЧЕЛОВЕК > 6 Then
КОЛИЧЕСТВО_ЛИСТОВ = КОЛИЧЕСТВО_ЧЕЛОВЕК / 6
i = КОЛИЧЕСТВО_ЧЕЛОВЕК Mod 6
If i > 0 Then КОЛИЧЕСТВО_ЛИСТОВ = КОЛИЧЕСТВО_ЛИСТОВ + 1
End If
End Sub
--------------------------
Private Sub НижнийКолонтитул_Format(Cancel As Integer, FormatCount As Integer)
Me![Число] = КОЛИЧЕСТВО_ЧЕЛОВЕК
Me![Сумма] = SUMMA_PROP(КОЛИЧЕСТВО_ЧЕЛОВЕК)
End Sub