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

ник: snipe
ну еще можно выдернуть
имя контрола на котором установлен фокус
Screen.ActiveControl.Name
потом в функции сначала обнулить все контролы (сделать фоновыми)
а потом нужный контрол покрасить в нужный цвет

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

как-то так

Private Sub ПолеСоСписком36_GotFocus()
call ColorSet()
End Sub

Private Sub ПолеСоСписком37_GotFocus()
call ColorSet()
End Sub

Private Sub ПолеСоСписком38_GotFocus()
call ColorSet()
End Sub



Private function ColorSet ()
dim asd as string
asd=Screen.ActiveControl.Name
Me!ПолеСоСписком36.BackColor = RGB(255, 255, 255)'белое поле
Me!ПолеСоСписком37.BackColor = RGB(255, 255, 255)'белое поле
Me!ПолеСоСписком38.BackColor = RGB(255, 255, 255)'белое поле
Me(asd).BackColor = RGB(255, 0, 0) 'красное поле
end function