ReSQL.ru
     
powered by simpleCommunicator - 2.0.51     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Раскраска отчёта. Задание цветов
14 сообщений из 14, страница 1 из 1
Раскраска отчёта. Задание цветов
    #39978962
Фотография Joss
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Joss
Участник
Создаю календарный план/отчёт для сотрудников организации.

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

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

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

-------------------------------------------------------------
А ты вложил уже свой кровный рубль в 50-ти миллиардное состояние Билла Гейтса?
...
Рейтинг: 0 / 0
13.07.2020, 13:58
| Ответить | Цитировать | Написать  
Раскраска отчёта. Задание цветов
    #39978998
ROI
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ROI
Участник
Joss,

А что уже пробывали?
Чё не понравилось?
Огласите весь список пожалуйста.
Условное форматирование чем не нравиться?
...
Рейтинг: 0 / 0
13.07.2020, 14:46
| Ответить | Цитировать | Написать  
Раскраска отчёта. Задание цветов
    #39979020
Фотография Joss
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Joss
Участник
Есть служебная таблица с названиями работ.
Дежурство в офисе
выезд на объект
больничный
отпуск
ну и т.п.

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

Что-то типа вот этого
...
Рейтинг: 0 / 0
13.07.2020, 15:04
| Ответить | Цитировать | Написать  
Раскраска отчёта. Задание цветов
    #39979022
Фотография Joss
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Joss
Участник
Задавать цвета будет пользователь. Тут важна наглядность.
Вот ещё одна форма задания цвета
...
Рейтинг: 0 / 0
13.07.2020, 15:05
| Ответить | Цитировать | Написать  
Раскраска отчёта. Задание цветов
    #39979038
Serg197311
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Serg197311
Участник
domenuitem???
только какой item не знаю...
...
Рейтинг: 0 / 0
13.07.2020, 15:19
| Ответить | Цитировать | Написать  
Раскраска отчёта. Задание цветов
    #39979042
ROI
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ROI
Участник
Serg197311,
показать диалог выбора цвета
Код: vbnet
1.
Private Declare Function wlib_AccChooseColor Lib "msaccess.exe" Alias "#53" (ByVal hwnd As Long, rgb As Long) As Long



Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
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
...
Рейтинг: 0 / 0
13.07.2020, 15:23
| Ответить | Цитировать | Написать  
Раскраска отчёта. Задание цветов
    #39979045
Serg197311
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Serg197311
Участник
ROI
Serg197311,
показать диалог выбора цвета


Не знаю как ТС - а от меня точно спасибо!
...
Рейтинг: 0 / 0
13.07.2020, 15:25
| Ответить | Цитировать | Написать  
Раскраска отчёта. Задание цветов
    #39979074
Фотография Joss
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Joss
Участник
Спасибо, это как раз то, что надо
...
Рейтинг: 0 / 0
13.07.2020, 16:05
| Ответить | Цитировать | Написать  
Раскраска отчёта. Задание цветов
    #40063805
Дар1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дар1
Гость
ROI,
Добрый день.
То что надо создать модуль понятно.
А вот как его задействовать пока что не понял.
Надо привязать его к кнопке? или к Загрузке формы?
Поясните пожалуйста
...
Рейтинг: 0 / 0
19.04.2021, 12:55
| Ответить | Цитировать | Написать  
Раскраска отчёта. Задание цветов
    #40063847
ROI
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ROI
Участник
Дар1,

На событие "нажатие кнопки"
вызываем функцию roi_ChooseColor
...
Рейтинг: 0 / 0
19.04.2021, 13:54
| Ответить | Цитировать | Написать  
Раскраска отчёта. Задание цветов
    #40063917
Дар1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дар1
Гость
ROI,
А вот эта строка куда?
Private Declare Function wlib_AccChooseColor Lib "msaccess.exe" Alias "#53" (ByVal hwnd As Long, rgb As Long) As Long
...
Рейтинг: 0 / 0
19.04.2021, 15:35
| Ответить | Цитировать | Написать  
Раскраска отчёта. Задание цветов
    #40063925
Дар1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дар1
Гость
Разобрался.
Но остался вопрос, как выбранный цвет вложить в поле?
...
Рейтинг: 0 / 0
19.04.2021, 15:52
| Ответить | Цитировать | Написать  
Раскраска отчёта. Задание цветов
    #40064060
ROI
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ROI
Участник
Дар1,

функция возвращает числовое представление цвета
в формате ACCESS
присвойте это значение например цвету фона контрола
...
Рейтинг: 0 / 0
20.04.2021, 07:38
| Ответить | Цитировать | Написать  
Раскраска отчёта. Задание цветов
    #40064374
Дар1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дар1
Гость
ROI,
Как это сделать?
...
Рейтинг: 0 / 0
21.04.2021, 10:27
| Ответить | Цитировать | Написать  
14 сообщений из 14, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Раскраска отчёта. Задание цветов
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=39979020&tid=1609706]:
 0ms
get settings:
 10ms
get forum list:
 14ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 205ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 52ms
get tp. blocked users:
 1ms
others: 288ms
total:  588ms
созд. / загр.: 588ms
x
x
Закрыть


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