VBA, MS Access MS Access в примерах

Подсветка записи формы текстом вместо УФ или волшебство символа: ChrW(9608)

По материалам: https://www.cyberforum.ru/ms-access/thread3153471.html#post17205417

Задача:
Подсветить отмеченные (CheckBox) записи формы не пользуясь "Условным Форматированием".

Решение:
Используем один из блочных элементов Unicode: https://symbl.cc/ru/unicode/blocks/block-elements/, а конкретно: ChrW(9608)

01.
В запросе "qf_mainForm_SubForm" добавлено поле для закраски "RecSelector":
RecSelector: RecSelector: IIf([GdSelected]=True;String(180;ChrW(9608)))
SQL тело запроса:

SELECT dtGoods.*, IIf([GdSelected]=True,String(180,ChrW(9608))) AS RecSelector
FROM dtGood ORDER BY dtGoods.GdName

02.
В форме поле с этими данными ("TextRecSelector")
- Ширина = Ширина области данных
- Высота = Высота  области данных
- Цвет текста = Светло Желтый,
- Доступ = Нет,
- Блокировка = Да,
- Размещение = Под(!) прозрачными(!) полями в области данных формы

Picture




Скачать

MSA-2003 + MSA-2007 ( 120 kB) Пример


Назад ToTop
L.E. 06.02.2024
Рейтинг@Mail.ru