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

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

программы на Microsoft Access
https://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