LEADERSOFT.ru
Разработка на заказ программ и сайтов
Разработка
Заказ программы
Прайс-лист
Техническое задание
Проектная документация
Наши клиенты
Реклама и продвижение
Магазин
Перейти в магазин
Новинки магазина
Бизнес программы
Финансовый учет
Документооборот
Исходные коды
Интернет решения
Обучение
Перейти в раздел
Форумы по разработке
Примеры на Access
Рассылка статей
Магазин IT литературы
Блог
Все статьи
Microsoft Access (VBA)
Microsoft Access (Проекты)
Microsoft ASP.NET
Сервисы Google
Технические задания
Новости IT технологий
Сервисы
Форумы разработчика
Контакты
О компании
Регистрация на сайте
Подписка на новости по Email
Сообщество Google+
Подписка subscribe.ru
Новости в формате Атом
Загрузить
Загрузить каталог программ
Форумы по информационным технологиям
Начало
Forums
Регистрация
|
Вход
Forums
Обновлено ::
07 февраля 2005
Форумы
Поиск
Список форумов
Программирование
Microsoft Access. Файлы mdb и accdb
Тема: Как узнат...
Тема: Как узнать количество записей (+)
15.06.2007 21:08:24
NikNik
7 сообщения
Тема: Как узнать количество записей (+)
Как узнать количество записей, по которым строится отчет? Т.е. отчет может вызываться для всех записей или с фильтром для одной. Как мне узнать количество записей, и в зависимости от этого поменять верхний колонтитул?
P.S. Общий раздел по отчетам
Автор:
r_nikola
от 17.05.2004 10:10:26
Источник ...
15.06.2007 21:08:24
All
4316 сообщения
RE: Как узнать количество записей (+)
Надо скачать файл la_report2.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
P.S. Общий раздел по отчетам
Автор:
Admin
от 0:00:00
Источник ...
Страница 1 из 1
Программирование
Microsoft Access. Файлы mdb и accdb
Тема: Как узнат...
Одноуровневый вид
Древовидная структура
Самый старый из новых
Новейший из старых
Поиск
Список форумов
Начало
|
Forums
Copyright 2002-2016 Leadersoft.ru
::
Leadersoft
::
Соглашение о безопасности
::
Условия использования