Программирование на Visual Basic

04. Бывает в подчиненной таблице нужно определить, где находится курсор и какой номер записи. Параметр AbsolutePosition покажет вам решение этой задачи.

Private Sub Дата_GotFocus()
    With Me.Form.Recordset
        Me.Parent.NumberRecord = .AbsolutePosition + 1
        Me.Parent.PercentPosition = .PercentPosition
        Me.Parent.RecordCount = .RecordCount
        Me.Parent.Repaint
    End With
End Sub