Переход к последней записи в подчиненной форме

Пара камней в огород DoCmd
Как-то мне понадобилось перейти к последней записи в подчиненной форме. Перейти к последней записи можно разными способами, простейший – это вот эта команда: DoCmd.GoToRecord , , acLast. Вот с подчиненненными формами есть нюанс – нужно вызывать ее в обработчике события или методе подчиненной формы. В моем случае события не подходили, метод было реализовывать влом и очень хотелось реализовать это на главной форме.

Поэтому пришлось написать свою функцию. Благодаря тому, что функция принимает ссылку на форму, а не имя, то можно ее использовать для любой формы, подчиненной, созданной при помощи DoCmd.OpenForm или оператора New.

Код Visual Basic

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 Public Sub CM_FormGoToLastRecord(Optional ByRef frm As Form = Nothing) ' перейти на последнюю запись ' frm можно не передавать, в этом случае она будет получена при помощи CodeContextObject On Error GoTo Err_       If frm Is Nothing Then         Set frm = CodeContextObject     End If       If frm Is Nothing Then Exit Sub       Dim rst As DAO.Recordset       Set rst = frm.RecordsetClone     If Not rst.EOF Then rst.MoveLast     frm.Bookmark = rst.Bookmark   Exit_:     Exit Sub Err_:     mc_Log.MC_LogErr ("CM_FormGoToLastRecord()")     Resume Exit_: End Sub

mc_Log.MC_LogErr ("FormGoToLastRecord()") - функция, которая логирует ошибку в текстовом файле.

CodeContextObject
В процедуре CM_FormGoToLastRecord() используется такая штука, как CodeContextObject, которое в справке называют свойством. Это свойство позволяет получить ссылку на объект, в рамках которого выполняется данный код. Если вызвать процедуру CM_FormGoToLastRecord() в событии подчиненной формы, то CodeContextObject выдаст ссылку на подчиненную форму. Этот же способ использует DoCmd.GoToRecord, когда не указывается имя объекта.