| Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате |
| Форум программистов > Центр помощи > [MS Access] Отчет. Как сделать на основе этого куска кода |
| Автор: Teapot 18.12.2007, 17:01 |
| Как сделать на основе этого куска кода чтобы если больше шести человечков- количество человечков и сумма прописью количество человечков -печатались на втором листе а на первом нет '--------------- подсчитать количество листов КОЛИЧЕСТВО_ЧЕЛОВЕК = 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 |
| Автор: Akina 18.12.2007, 18:57 |
| Для домашних заданий, курсовых, существует "Центр Помощи". Тема перенесена! |