выделение цветом записи в ленточной форме 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]

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

[@access-program]

Спасибо за отзыв, главное чтобы вам помогло

[@addebrat3124]

А я не стал использовать номер записи. Просто при получении фокуса =1 , при потере =0 Способ обалденно прост, понятен и эффектен! Хоть и говорят, что он древний, но меня выручил именно сейчас, в мае 23-го)

[@user-ei5jw7vo9s]

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

[@access-program]

макрос создать отдельно и в нем добавить макрокоманду "сохранить запись"

[@access-program]

Private Sub полеВзаписи_GotFocus() Dim z As Long z = Me.CurrentRecord Forms![вашаФорма]!полеСпометкой = z DoCmd.RunMacro "вашМакросСохраненияЗаписи" End Sub

[@access-program]

при потере фокуса: Private Sub полеВзаписи_LostFocus() Forms![вашаФорма]!полеСпометкой = 0 DoCmd.RunMacro "вашМакросСохраненияЗаписи"

[@user-ei5jw7vo9s]

@@access-program Спасибо. Разобрался. Подсветка записи работает!

[@weters1990]

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

[@access-program]

Ну а если фокус появится на другом поле строки при переходе с одной строки на другую, макрос не сработает и условное форматирование соответственно тоже

[@access-program]

Понятно, вместо VBA кода макрос на получение фокуса задать значение кода в новое поле, при потере фокуса обнулить значение этого поля. Можно и так, суть не изменилась задача была создать условие для форматирования. А так кодом мы ничего не засоряем, если знать как сделать задачу кодом vba или макросом я бы предпочел кодvba так он меньше влияет на размер файла аксес. Код более универсальное средство чем макрос, зачастую для решения задачи требуется код vba состоящий всего из нескольких строк, а если эту задачу решать макросами, то требуется не один макрос со множеством макрокоманд м еще множеством запросов

[@weters1990]

kzbin.info/www/bejne/q3q9mYGJeNN6iZo

[@addebrat3124]

Абсолютно согласен. Макросы вообще прошлый век