LEADERSOFT.ru Разработка на заказ программ и сайтов
Раздел обучения информационным технологиям
Разработка программ на Access
Суть примера в том, что когда формируется отчет, то используя событие форматирования, можно еще до его открытия узнать сколько записей будет в отчете.
Свойства продукта

 Microsoft Office: 2000,2002,2003,2007,2010  Архив с файлами: Перейти
 Операционная система: Windows XP,Vista  Применение: Базы данных Access
 Продажа: Купить  Файл исходника: ..\Access\08 Отчеты\la_report1.mdb
 Язык интерфейса: Русский

   

Dim cnt As Long ' Число записей

'===============================================================
' Обнуляем информацию по отчету
Private Sub Report_Open(Cancel As Integer)
    cnt = 0
End Sub


'===============================================================
' Считаем данные
Private Sub ОбластьДанных_Print(Cancel As Integer, PrintCount As Integer)
Dim rpt As Report
    On Error GoTo 999
    'Находим в запросе нужную запись
    cnt = cnt + 1
    Me.CountRpt.Caption = Me.Page & "/" & cnt
    Exit Sub
999:
    Err.Clear
End Sub


' Печатаем информацию для каждого колонтитула
Private Sub ВерхнийКолонтитул_Format(Cancel As Integer, FormatCount As Integer)
    Me.headpage.Caption = "Страница: " & Me.Page & "/" & cnt
End Sub

Copyright © 2002-2015 ООО Лидер Эксэсс
Сайт работает под управлением: ASP.NET, Access