LEADERSOFT.ru Разработка на заказ программ и сайтов
ЕСЛИ БАЗА ВАМ НУЖНА В ЛИДЕРСОФТ ЗАЙДИ СПЕРВА!
Все примеры Microsoft Access - VBA
























































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

Все примеры Microsoft Access
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