выделение цветом записи в ленточной форме Access программы на Microsoft Access ПОЛУЧЕНИЕ ФОКУСА: 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
