|
|
|
Junior Member
 
участник
Last Login: 05.03.2007 11:53
Сообщ.: 14,
Visits: 126
|
|
| Sum([сумма] в колонтитулах не работает? Что делать? Вот присписчило просчитать сумму по каждой странице.
|
|
|
|
|
Supreme Being
участник
Last Login: 07.03.2008 19:04
Сообщ.: 328,
Visits: 1 857
|
|
Попробуйте так:
Option Compare Database
Option Explicit
Dim sa As Currency
Private Sub ВерхнийКолонтитул_Print(Cancel As Integer, PrintCount As Integer)
sa = 0
End Sub
Private Sub НижнийКолонтитул_Print(Cancel As Integer, PrintCount As Integer)
Me!psa = sa 'psa - поле нижнего колонтитула, в которое помещается сумма
End Sub
Private Sub ОбластьДанных_Print(Cancel As Integer, PrintCount As Integer)
sa = sa + Me!a 'а - поле, которое суммируется
End Sub
|
|
|
|