powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Переход на новую страницу в отчете....
8 сообщений из 8, страница 1 из 1
Переход на новую страницу в отчете....
    #32210419
Dmit
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Дело вот в чем у меня строиться отчет и идет отбор записей, час вывожу а часть не вывоже на экран по условию.
-----------------------------------------------
Private Sub ЗаголовокОтчета_Format
itog = 0
end sub
Private Sub ОбластьДанных_Format
условие по отбору записей
если выводим на экран то itog=itog+1
end sub
Private Sub ПримечаниеОтчета_Format
Me.Итого.Value = "Всего : " & " " & itog
End Sub
-----------------------------------------------
так вот, пока отчет распологается на одном листе , то считает верно, как только отчет переваливает на второй лист itog увеличивается на 1, то есть становиться не верным, больше на 1, чем на самомо деле кол-во записей
В чем причина????
...
Рейтинг: 0 / 0
Переход на новую страницу в отчете....
    #32210448
Фотография Артист
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
попробуй событие ЗаголовокОтчета_Print вместо формата...
и в нём проверяй свойство PrintCount на равенство 1 ....
ну типа так:
Код: plaintext
1.
2.
3.
4.
5.
Private Sub ОбластьДанных_Print(Cancel As Integer, PrintCount As Integer)
    If PrintCount =  1  Then
        Итого = Итого + txtSales
    End If
End Sub

зы. а итого в колонтитул ...
...
Рейтинг: 0 / 0
Переход на новую страницу в отчете....
    #32210462
Dmit
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Честно говоря немного не допонял
Сдел так
Private Sub ЗаголовокОтчета_Print(Cancel As Integer, PrintCount As Integer)
If PrintCount = 1 Then
summa = summa - 1
End If
End Sub
так нормально отображает верно кол-во, но если отчет помещается на одну страницу, то теперь естественно пишет на еденицу меньше чем на самом деле
...
Рейтинг: 0 / 0
Переход на новую страницу в отчете....
    #32210465
Фотография Артист
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
я тоже недопонял: нахрена при принте заголовка ты отнимаешь от суммы единицу?
...
Рейтинг: 0 / 0
Переход на новую страницу в отчете....
    #32210477
Dmit
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
а что тогда нужно сделать????

ты сказал

попробуй событие ЗаголовокОтчета_Print вместо формата...
и в нём проверяй свойство PrintCount на равенство 1 ....
ну и проверю я его и что дальше???
...
Рейтинг: 0 / 0
Переход на новую страницу в отчете....
    #32210488
Фотография Артист
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
сорри я хотел сказать "ОбластьДанных_Print" что и видно в приведенном мной примере:
ещё раз
Код: plaintext
1.
2.
3.
4.
5.
6.
Private Sub ОбластьДанных_Print(Cancel As Integer, PrintCount As Integer)
    If PrintCount =  1  Then
        Итого = Итого + nz([поле_в_области_данных])
    End If
End Sub
(с) Гетц
...
Рейтинг: 0 / 0
Переход на новую страницу в отчете....
    #32210507
Bor-L
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Когда все будет выполнено, сооруди тестовый пример, как минимум, в 3 страницы. Открой отчет в режиме предварительного просмотра, перейди СРАЗУ на последний лист и посмотри на сумму ;-)). Заставить пользователя пролистывать отчет с 1 до последней страницы не удастся. Но можно заставить машину.
http://am.rusimport.ru/MsAccess/topic.aspx?ID=255 (на правах саморекламы)
...
Рейтинг: 0 / 0
Период между сообщениями больше года.
Переход на новую страницу в отчете....
    #32717005
merlin_by
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Это хорошо только, когда сам Access остается активным, а если юзеру захочется во время создания отчета перейти в другое приложение, то ...
И никакие AppActivate "Microsoft Access" не помогут :(
Неужели им так было тяжело написать метод report.gotopage? Аж зло берет

З.Ы. Народ а может кто знает способ перехода на другую старницу в отчете без этих долбаных sendkeys F5 и т.п.?
...
Рейтинг: 0 / 0
8 сообщений из 8, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Переход на новую страницу в отчете....
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]