Разработка баз данныхРазработка баз данных

 Программирование  Программы  Ссылки  Обратная связь
     
. . .
. . .
startpage.htm Новости
about.htm О сайте
fileformat.htm I. Выбор технологии
clientserver.htm Преимущества клиент-серверной технологи
prepare.htm Переход от MDB к ADP
upsizing.htm Инструменты переноса данных
setupserver.htm Выбор версии и установка сервера
selectclient.htm Выбор версии MSAccess
formsreports.htm II. Формы, Отчеты MSAccess
queries.htm Запросы / ADO
inputparameters.htm Передача входных параметров
data_drivers.htm Библиотеки доступа к данным
forms.htm Формы MSAccess
requery.htm Обновление данных в форме
updatableform.htm Обновляемость данных в форме
dialogform.htm Остановка кода пока открыта форма
formsaverecord.htm Сохранить текущую запись
formgotorecord.htm Переход по записям формы
sumform.htm Итоги в формах
serverfiltersample.htm Пример серверного фильтра
formerror.htm Причина Ошибки #Error
menubarevent.htm Перехват нажатия на кнопку меню
woconditionalformat.htm Раскраска строк ленточной формы без условного форматирования
currrec.htm Выделение цветом текущей записи
subform.htm Подчиненные Формы
textboxenter.htm Ввод перевода строки
twimagelistbug.htm treview + imagelist + подч. форма
reports.htm Отчеты, общие рекомендации
report_input_parameters.htm Входные параметры
vbaprog.htm III. Программирование VBA
dbpic.htm Картинки в базе данных
binbmp.htm Двоичные данные картинки в поле таблицы базы данных
piclink.htm Хранение ссылок на файлы
picjpg.htm Бинарное содержимое JPG, Gif файла в бинарном поле базы данных
playsound.htm Воспроизведение звуков
tv.htm Функции для тривью
restartaccess.htm Перезапуск Аксесса
publicvariables.htm Передача и хранение параметров и настроек
collectionfunctions.htm Коллекция полезных функций
datepicker.htm Всплывающий календарик
menuhummer.htm Меню и тулбары
padeg.htm Склонение по падежам
comborowsource.htm Источник данных для поля со списком
filedialog.htm Диалог выбора файла / папки
sendmapi.htm Отправка почты (4 способа) + архивация
autoupdateclient.htm Автоматическое обновление клиентской части
licenses.htm  Устранение проблем с регистрацией компонентов
uncommented.htm Без коментариев
filetime.htm Время и дата файла
reportsample.htm Пример настраивомого отчета
adpformfilter.htm Серверный Фильтр by GEO
tempmdb.htm ADP: Временный MDB для временных таблиц
mutex.htm Запрет запуска нескольких копий приложения
translit.htm Транслитерация всего проекта.
updateident.htm Изменение счетчика
webinterface.htm IV WEB
accessinternet.htm Работа с аксесс через интернет
webupdate.htm Обновление приложения аксесс через интернет
msiecom.htm Программное управление веббраузером
sqlserver.htm MS SQL
mssqltransfer2.htm Перенос/копирование баз
mssqlperm.htm Adp проверка прав пользователя перед открытием формы или управление доступностью полей формы
mssqlcrossdatabase.htm  Межбазовые разрешения
tsqlcollection.htm T-sql коллекция
similarity.htm Сортировка по созвучности
esp.htm расширенные хранимые процедуры
mssqloptimizing.htm Оптимизация быстродействия
    

Отчеты MSAccess, общие рекомендации


Клиентский фильтр отчета


Следует обратить внимание, что клиентский фильтр отчета влияет на число отображаемых записей, но не влияет на значения Итоговых полей в примечаниях разделов, полученных с помощью агрегатных функций: =Sum(), =Count() и т.д.
( в ADP - проектах).

Рекомедую вынести фильтр в условие источника данных отчета


Выравнивание контролов



Для выравнивания контролов удобно :
Правка -> Выделить Все (Ctrl + A)
Формат -> Размер -> По узлам сетки

Выбор всех контролов CTRL + A
Исключить / включить контрол из числа выбранных Удерживая SHIFT кликнуть по контролу


Форматирование легким тонированием каждой третьей строки


придает отчету дорогой, презентабельный вид и очень ненавязчиво и удобно позволяет отслеживать строки

Private SubОбластьДанных_Print(Cancel As Integer, PrintCount As Integer)
Dim ppp
ppp = Me.ПолеНумератора '(Control Source:=1 и включенно суммирование для всего)

If ppp Mod 3 <> 0 Then
Me.Section(0).BackColor = RGB(255, 255, 255)
Else
Me.Section(0).BackColor = RGB(240, 240, 240)
end if
End Sub


Необходимо предварительно задать для контролов области данных тип фона - прозрачный


Вывод данных в виде таблички


если используется расширение или сжатие полей

Private Sub ОбластьДанных_Print(Cancel As Integer, PrintCount As Integer)
Call DrawDetail(Me)
End Sub


В общем модуле:

SubDrawDetail(CR AsReport)
Dim i As Long
Dim maxh As Long
Static bColor

maxh = 0
CR.DrawMode = 1
CR.DrawWidth = 2
CR.ScaleMode = 1
For i = 0 ToCR.Controls.Count - 1
If CR(i).Section = acDetail Then
 If CR(i).Height > maxh Then maxh = CR(i).Height
End If
Next i

For i = 0 To CR.Controls.Count - 1
If CR(i).Section = acDetail And CR.Visible Then
 CR.Line (CR(i).Left, CR(i).Top)-Step(CR(i).Width, maxh), , B
End If
Next i
End Sub

Необходимо предварительно задать для контролов области данных тип границы - отсутствует.




Акцент на цифрах

Использование шрифта Lucida Fax позволит акцентировать внимание на цифрах в отчете. В этом шрифте цифры крупнее букв.


Передача параметров из формы в отчет


см. раздел передача параметров и настроек


Пример отчета:
#1настройка фильтра, группировок и заголовка отчета из формы (только код)


 
. . .
. . .
© 2000 - 2009 Алексей Козин эта вебстраница является зеркалом сайта www.msdatabase.ru Рейтинг@Mail.ru
Hosted by uCoz