ник: час
вот совет, но не мой:
Вопрос: Выделение цветом текущей записи
Совет:
Выделение цветом текущей записи
Option Compare Database
Option Explicit
Public Function currec(idform) As Long
On Error Resume Next
If Me.NewRecord = 0 Then
If Me.Recordset("id") = idform Then currec = 1 Else currec = 0
Else
currec = 0
End If
Me.Repaint
End Function
Private Sub Form_Current()
Me.Refresh
End Sub