Всем привет!
Мне нужно сделать подсветку активной строки в ленточной форме.
Редактировать записи необходимо прямо в этой ФОРМЕ.
1. Создать подсветку с рисунком не могу, его надо хранить в отдельной таблице и таблицу связывать с табл. с данными, а программа работает в сети, и если с одной формой работает больше одного человека подсвечиваются несколько записей и выскакивают окна с ругательствами.
2. Подсветка просто активного поля, поля недоступные для курсора, не приемлемы.
3. Наиболее подходящий вариант:
Dim Ключ As Long

событие формы "текущая запись"
Private Sub Form_Current()
Ключ = Nz(Код, 0)
Код.ControlSource = Код.ControlSource
End Sub

Function aaa()
aaa = Ключ
End Function
Но у меня он работает только в табличной форме, в ленточной не происходит обновление
и если дописать еще строку с обновлением, работает, но сильно мигает.
ПОМОГИТЕ!
СПАСИБО.

Спасибо, только при переходе по записям сильно мигает экран если есть поля с выпадающими списками.
Как с этим бороться? Может есть еще варианты?