private Sub InfENot() 'информация цветом текста кнопки


If Nz(Me("zakaz"), "") = "" Then 'изменение цвета надписи на кнопке
Me.Kn5.ForeColor = vbBlack
Else
Me.Kn5.ForeColor = RGB(0, 153, 51) 'зеленый
End If

End Sub

Вот такая процедура есть в нескольких формах (около 10). Есть ли возможность сделать подобную процедуру с параметрами, чтобы она была одна (и поместить ее в модуль)? Как обратиться к контролам формы, в данном случае к me.Kn5 ч-з параметр процедуры подскажите пожалуйста!

http://www.sql.ru/forum/1069047/procedurka