пишем функцию
где все поля загоняем
.BackColor = 16777215
.ForeColor = 0
.FontBold = 0

на событие клик
вызываем функцию (поля "обнуляются")
красим конкретное поле в нужные цвета

можно функции передавать имя поля
и красить из под функции

добавлено
это в модуль формы

Private function Boxcolor (asd as string)
Me.ТекстНадпись.BackColor = 16777215
Me.ТекстНадпись.ForeColor = 0
Me.ТекстНадпись.FontBold = 0

Me.ОбложкаНадпись.BackColor = 16777215
Me.ОбложкаНадпись.ForeColor = 0
Me.ОбложкаНадпись.FontBold = 0

Me.ФорзацНадпись.BackColor = 16777215
Me.ФорзацНадпись.ForeColor = 0
Me.ФорзацНадпись.FontBold = 0

Me.НахзацНадпись.BackColor = 16777215
Me.НахзацНадпись.ForeColor = 0
Me.НахзацНадпись.FontBold = 0

Me.ВкладкаНадпись.BackColor = 16777215
Me.ВкладкаНадпись.ForeColor = 0
Me.ВкладкаНадпись.FontBold = 0

Me.ФронтисписНадпись.BackColor = 16777215
Me.ФронтисписНадпись.ForeColor = 0
Me.ФронтисписНадпись.FontBold = 0

Me.СуперобложкаНадпись.BackColor = 16777215
Me.СуперобложкаНадпись.ForeColor = 0
Me.СуперобложкаНадпись.FontBold = 0

Me.ПереплетКорешокНадпись.BackColor = 16777215
Me.ПереплетКорешокНадпись.ForeColor = 0
Me.ПереплетКорешокНадпись.FontBold = 0

Me.КапталНадпись.BackColor = 16777215
Me.КапталНадпись.ForeColor = 0
Me.КапталНадпись.FontBold = 0

Me.ЛяссеНадпись.BackColor = 16777215
Me.ЛяссеНадпись.ForeColor = 0
Me.ЛяссеНадпись.FontBold = 0

Me.ТиснениеНадпись.BackColor = 16777215
Me.ТиснениеНадпись.ForeColor = 0
Me.ТиснениеНадпись.FontBold = 0

Me.КонвертНадпись.BackColor = 16777215
Me.КонвертНадпись.ForeColor = 0
Me.КонвертНадпись.FontBold = 0

Me.СчетНадпись.BackColor = 16777215
Me.СчетНадпись.ForeColor = 0
Me.СчетНадпись.FontBold = 0

Me.УпаковкаНадпись.BackColor = 16777215
Me.УпаковкаНадпись.ForeColor = 0
Me.УпаковкаНадпись.FontBold = 0

Me(asd).BackColor = 62207
Me(asd).ForeColor = 255
Me(asd).FontBold = 1

end function

Пример вызова
Private Sub ТекстНадпись_Click()
call Boxcolor(ActiveControl.Name)
End Sub

... For Each CNT In Me.Controls If CNT.Tag = "WW" Then If N1Z = CNT.Name Then ...

Много лишней работы процессору.

В модуле формы:

Option Compare Database Option Explicit Private ActiveLabel As Label Private Sub Form_Open(Cancel As Integer)     LabelActivate Me.Controls("ТекстНадпись") 'Имя Label активной по-умолчанию(первой) End Sub ' вызываем и передаем ссылку на Label при клике(например) Private Sub LabelActivate(NewActiveLabel As Label)      If Not ActiveLabel Is Nothing Then         With ActiveLabel             .BackColor = 16777215             .ForeColor = 0             .FontBold = 0         End With     End If     Set ActiveLabel = NewActiveLabel     With ActiveLabel         .BackColor = 62207         .ForeColor = 255         .FontBold = 1     End With End Sub

Не проверял, писал "на глаз". :)

Ой, извиняюсь!!!
Этот элемент, вроде как только с MSA2010 доступен.

Примеры. =>
Есть еще варианты, более наркоманские. :)

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

обзываем "Кнопочка1", "Кнопочка2, "Кнопочка3", "Кнопочка4", "Кнопочка5".........."Кнопочка15"

Private function Boxcolor (asd as string)
for i=1 to 15
Me("Кнопочка" & i).BackColor = 16777215
Me("Кнопочка" & i).ForeColor = 0
Me("Кнопочка" & i).FontBold = 0
next i
Me(asd).BackColor = 62207
Me(asd).ForeColor = 255
Me(asd).FontBold = 1
end function

Пример вызова
Private Sub Кнопочка1_Click()
call Boxcolor(ActiveControl.Name)
End Sub

а если Label на форме 30 а нужно только 15

что будет предыдущим перед первым нажатием активной кнопки

... Private Sub Form_Open(Cancel As Integer)     LabelActivate Me.Controls("ТекстНадпись") 'Имя Label активной по-умолчанию(первой) End Sub  ...

... For Each ctlL In Me.Controls      ctlL.OnClick = "=LabelActivate(" & ctlL.Name & ")"  ...

Ну ладно у меня в примере одни только нужные Labels, а ежели в реальной форме?
Отлуп по полной получится. :)

Легко.
Вариантов, как обычно, несколько.
:)

Сейчас занят. Вечером?

''так даже удобнее, вставила в собственную задачу,  сразу видна нажимаемая кнопка For Each CNT In Me.Controls If CNT.controlType =  acCommandButton Then If N1Z = CNT.Name Then

надо изменить цвет одной из 15 кнопок за период времени от нескольких секунд до минут

не ахти какие нагрузки процессору
лучше чем километровый сложно отслеживаемый модуль -- тоже процессору не подарок

никто не мешает
-списать имена кнопок в массив и не менять значение, если оно уже равно требуемому
-или помнить предыдущий и менять активный и предыдущий

Несерьезные программки у Лукаса какие-то, на 2-х - 3-х листиках код умещается наверное.
Воо-о-от у меня....!!! Сразу уважение вызывает и видно, что чел (т.е. я) работаю...