выделение цветом записи в ленточной форме Access

выделение цветом записи в ленточной форме Access
программы на Microsoft Access
access-program.ru/
ПОЛУЧЕНИЕ ФОКУСА:
Private Sub поле1_GotFocus()
Dim z As Long
z = Me.CurrentRecord
Forms![ваша_Форма]!поле1 = z
DoCmd.RunMacro "сохранить запись"
End Sub
ПОТЕРЯ ФОКУСА:
Private Sub поле1_LostFocus()
Forms![ваша_Форма]!ф = 0
DoCmd.RunMacro "сохранить запись"
End Sub
если необходимо для новой записи
получение фокуса:
Private Sub Ctlполе1_GotFocus()
If IsNumeric([Код]) = True Then
Dim z As Long
z = Me.CurrentRecord
Forms![ваша_Форма]!ф = z
DoCmd.RunMacro "сохранить запись"
End If
End
End Sub
потеря фокуса:
Private Sub Ctlполе1_LostFocus()
If IsNumeric([Код]) = True Then
Forms![защитные средства]!ф = 0
DoCmd.RunMacro "сохранить запись"
End If
End
End Sub

[@addebrat3124]

Классно! Спасибо!!!!!

[@vitlexx7935]

В нужный момент!!!

[@addebrat3124]

А я не стал использовать номер записи. Просто при получении фокуса =1 , при потере =0

[@user-ei5jw7vo9s]

А где же макрос Сохранить запись? На что его поставить?

[@weters1990]

Слишком змудрил . Я взял идею, с форматированием, и усовершенствовал. В самой форму нужно создать пустое поле в которое при получении фокуса будет вписан код строки , а затем условным форматирование код строки "=" вписанного кода в пустую строку. все делается макросом без засорения vba кода