ник: Скорп
На форме справа (см рис) 15 полей, по клику на которых появляется подформа.
На полях висит код, который раскрашивает поле при клике по этому полю.
Me.ТекстНадпись.BackColor = 62207
Me.ТекстНадпись.ForeColor = 255
Me.ТекстНадпись.FontBold = 1
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
|
и так по всем 15 полям.
Помогите загнать это в функцию или куда там еще, а то в глазах уже чертики прыгают от этих однообразных строчек...