|
Выделение цветом текущей записи
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
Загрузить пример RAR
| |