Archive for the ‘библиотека’ Category
Как сделать табличный вид в отчете
Если в строку разместить несколько полей, добавить в оформлении рамку, то получим таблицу, как Word или Excel. Весь кайф может поломать всего лишь одно поле, которое содержит много текста и нужно ставить «Да» свойству «Расширение».
В этом случае придется немного по программировать. Для начала уберем у полей рамку. Добавим одну линию в конце нашей записи — lineEndRow. Вертикальные линии будем рисовать самостоятельно методом Report.Line меду началом секции «Область данных» и линией lineEndRow. Функцию ниже нужно вызывать из события ОбластьДанных_Print.
Как сменить стандартную иконку
Что бы поменять стандартную иконку MS Access на что-нибудь свое необходимо открыть окно параметры запуска приложения и указывать там путь к изображению. Заодно можно поменять его руками. Естественно этот параметр можно задавать программно см. имена и значения коллекции CurrentDb.Parametrs.
Для изменения параметров из коллекций типа CurrentDb.Parametrs я написал функцию VC_PropertyChange(), которая располагается в модуле mc_objects.
Dim stAppTitle as String dim stPathToIco as String '-- изменить название приложения Call mc_objects.VC_PropertyChange(CurrentDb, "AppTitle", dbText, stAppTitle) '-- изменить иконку по умолчанию Call mc_objects.VC_PropertyChange(CurrentDb, "AppIcon", dbText, stPathToIco) Call mc_objects.VC_PropertyChange(CurrentDb, "UseAppIconForFrmRpt", dbBoolean, True) '-- отобразить изменения Application.RefreshTitleBar
Также в модуле mc_objects располагается еще одна полезная функция VC_PropertyValue(), которая читает значения параметра:
Dim stMenu As String '-- получить меню по умолчанию stMenu = VC_PropertyValue(CurrentDb, "StartUpMenuBar")
Текст функций:
Read the rest of this entry »
