Форумы HiProg.com - MS ACCESS, VBA, VB

ник: snipe
можно - только вызывать функцию придется все равно из каждого поля и каждого события

например так

Private Sub ПолеСоСписком36_GotFocus()
call ColorSet(Me!ПолеСоСписком36.Name,True)
End Sub

Private Sub ПолеСоСписком36_LostFocus()
call ColorSet(Me!ПолеСоСписком36.Name,False)
End Sub

Private function ColorSet (asd as string, dfg as boolean)
if dfg = True Then
Me(asd).BackColor = RGB(255, 0, 0)' красное поле
else
Me(asd).BackColor = RGB(255, 255, 255) 'белое поле
end if
end function