Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Microsoft Access Новый топик    Ответить
 Раскраска отчёта. Задание цветов  [new]
Joss
Member

Откуда: г. Минск
Сообщений: 5155
Создаю календарный план/отчёт для сотрудников организации.

Необходимо раскрасить поля разными цветами: работа в офисе - одним, выезд на объект - другим, командировка - третьим... ну и так далее.. отпуск, больничный, дежурство.... Список может расширяться.

Есть таблица таких состояний (кто-чем занимался). По заданию сюда в таблицу надо вносить и соответствующий цвет. Где-то я уже видел нечто подобное. Как задавать цвет через вызов специальной панели (или окошка). Но никак не могу вспомнить. Пересмотрел кучу материала, но так и не нашел.

Может у кого-то есть что-то подобное или кто кинет ссылку, где можно глянуть, как это делается.

-------------------------------------------------------------
А ты вложил уже свой кровный рубль в 50-ти миллиардное состояние Билла Гейтса?
13 июл 20, 13:58    [22166498]     Ответить | Цитировать Сообщить модератору
 Re: Раскраска отчёта. Задание цветов  [new]
ROI
Member

Откуда: г. Тюмень
Сообщений: 2190
Joss,

А что уже пробывали?
Чё не понравилось?
Огласите весь список пожалуйста.
Условное форматирование чем не нравиться?
13 июл 20, 14:46    [22166554]     Ответить | Цитировать Сообщить модератору
 Re: Раскраска отчёта. Задание цветов  [new]
Joss
Member

Откуда: г. Минск
Сообщений: 5155
Есть служебная таблица с названиями работ.
Дежурство в офисе
выезд на объект
больничный
отпуск
ну и т.п.

Каждой работе/событию надо присвоить свой цвет. Вручную числами задать можно. А я видел пример, где по кнопке вызывалась системное окно задания цвета.

Что-то типа вот этого

К сообщению приложен файл. Размер - 16Kb
13 июл 20, 15:04    [22166578]     Ответить | Цитировать Сообщить модератору
 Re: Раскраска отчёта. Задание цветов  [new]
Joss
Member

Откуда: г. Минск
Сообщений: 5155
Задавать цвета будет пользователь. Тут важна наглядность.
Вот ещё одна форма задания цвета

К сообщению приложен файл. Размер - 3Kb
13 июл 20, 15:05    [22166581]     Ответить | Цитировать Сообщить модератору
 Re: Раскраска отчёта. Задание цветов  [new]
Serg197311
Member

Откуда: Жуковский
Сообщений: 915
domenuitem???
только какой item не знаю...
13 июл 20, 15:19    [22166601]     Ответить | Цитировать Сообщить модератору
 Re: Раскраска отчёта. Задание цветов  [new]
ROI
Member

Откуда: г. Тюмень
Сообщений: 2190
Serg197311,
показать диалог выбора цвета
Private Declare Function wlib_AccChooseColor Lib "msaccess.exe" Alias "#53" (ByVal hwnd As Long, rgb As Long) As Long 


Public Function roi_ChooseColor(Optional vInitRGB As Long) As Long
    Dim i As Long
On Error GoTo HandleError

    i = vInitRGB
    Call wlib_AccChooseColor(0, i)
    roi_ChooseColor = i

ExitProc:
    Exit Function
HandleError:
    MsgBox vbCrLf & Err.Description & _
            vbCrLf & vbCrLf & "  Имя процедуры = roi_ChooseColor", _
            vbCritical, "Ошибка " & Err.Number
    Resume ExitProc
End Function
13 июл 20, 15:23    [22166606]     Ответить | Цитировать Сообщить модератору
 Re: Раскраска отчёта. Задание цветов  [new]
Serg197311
Member

Откуда: Жуковский
Сообщений: 915
ROI
Serg197311,
показать диалог выбора цвета


Не знаю как ТС - а от меня точно спасибо!
13 июл 20, 15:25    [22166611]     Ответить | Цитировать Сообщить модератору
 Re: Раскраска отчёта. Задание цветов  [new]
Joss
Member

Откуда: г. Минск
Сообщений: 5155
Спасибо, это как раз то, что надо
13 июл 20, 16:05    [22166656]     Ответить | Цитировать Сообщить модератору
 Re: Раскраска отчёта. Задание цветов  [new]
Дар1
Member

Откуда:
Сообщений: 96
ROI,
Добрый день.
То что надо создать модуль понятно.
А вот как его задействовать пока что не понял.
Надо привязать его к кнопке? или к Загрузке формы?
Поясните пожалуйста
19 апр 21, 12:55    [22310889]     Ответить | Цитировать Сообщить модератору
 Re: Раскраска отчёта. Задание цветов  [new]
ROI
Member

Откуда: г. Тюмень
Сообщений: 2190
Дар1,

На событие "нажатие кнопки"
вызываем функцию roi_ChooseColor
19 апр 21, 13:54    [22310948]     Ответить | Цитировать Сообщить модератору
 Re: Раскраска отчёта. Задание цветов  [new]
Дар1
Member

Откуда:
Сообщений: 96
ROI,
А вот эта строка куда?
Private Declare Function wlib_AccChooseColor Lib "msaccess.exe" Alias "#53" (ByVal hwnd As Long, rgb As Long) As Long
19 апр 21, 15:35    [22311054]     Ответить | Цитировать Сообщить модератору
 Re: Раскраска отчёта. Задание цветов  [new]
Дар1
Member

Откуда:
Сообщений: 96
Разобрался.
Но остался вопрос, как выбранный цвет вложить в поле?
19 апр 21, 15:52    [22311068]     Ответить | Цитировать Сообщить модератору
 Re: Раскраска отчёта. Задание цветов  [new]
ROI
Member

Откуда: г. Тюмень
Сообщений: 2190
Дар1,

функция возвращает числовое представление цвета
в формате ACCESS
присвойте это значение например цвету фона контрола
20 апр 21, 07:38    [22311307]     Ответить | Цитировать Сообщить модератору
 Re: Раскраска отчёта. Задание цветов  [new]
Дар1
Member

Откуда:
Сообщений: 96
ROI,
Как это сделать?
21 апр 21, 10:27    [22311791]     Ответить | Цитировать Сообщить модератору
Все форумы / Microsoft Access Ответить