MS Access условное форматирование значений, хранящихся в поле таблицы?

Question

Я просмотрел различные форумы, чтобы найти пример условного форматирования, в котором используются значения для цвета фона, которые хранятся в поле в таблице.

В моей работе используются ежемесячные цвета, чтобы положить предметы на половину продажи, 12 месяцев 12 цветов, поэтому 1-й от использования ленты не будет работать. (О, да, ее MS OFFICE 2010 профессиональная версия Access)

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

Проблема может быть решена в VBA, поскольку этот пример из access-programmers.co.uk показывает, но он жестко закодирован в модуль. То есть

Select Case Me.CarID 'the name of the control with the value to be tested 
    Case "TILX" 
    Me.TextBoxName.BackColor = 12632256 '(gray) 
    Case "GATX" 
    Me.TextBoxName.BackColor = vbRed 
    Case Else 
    Me.TextBoxName.BackColor = RGB(255, 255, 255) '(white) 
End Select 

У меня есть месяц таблица так:

MonthCode MonthName MonthColor 
--------- --------- ---------- 
11   November  12632256 

Таким образом, цветовые значения сохраняются динамически (в случае персик бумаги или розовые чернила в миллиард раз дешевле в будущем), но фон свойство текстового поля MonthName не имеет построителя событий только выбор поддона (или я бы постарался =[monthTable]![MonthColor]).

So,

a. Должен ли я использовать пример VBA и проверять каждый случай? или

b. Могу ли я использовать значение поля в качестве значения uhm в выражении для me.Textbox. MonthName = [MonthColor]?

Я получаю около двадцати непрерывных секунд на компьютере с доступом к нему, чтобы экспериментировать, между моей кассой, ценообразованием, получением и инвентаризацией. Поэтому я по-настоящему ценю ваш предыдущий опыт.

Эрик

Answer 1

Поскольку вы предусмотрительно положить нужные значения цвета в таблицу, все, что вам сейчас нужно, это DLookup(). Например, в обработчике On Format событий Detail группы отчета мы можем сделать

Option Compare Database 
Option Explicit 

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer) 
    Me.MonthName.BackColor = DLookup("MonthColor", "MonthTable", "MonthCode=" & Month(Me.txtSomeDate)) 
End Sub 

который производит