Здравствуйте. Помогите, пожалуйста, реализовать следующее.

Необходимо, перемещаясь по записям в форме (с помощью Recordset), получить, какое время занимает вывод всех данных в этой форме.

У меня сейчас обработчик формы вот так выглядит. Я измеряю время загрузки изображений в форму с помощью функции timeGetTime(). И получаю время выполнения кода для каждой записи отдельно.

Private Declare Function timeGetTime Lib "winmm.dll" () As Long
Private Sub Form_Current()
    ' Если для записи текущего сотрудника имеется фотография,
    ' она отображается в форме. Если указанный файл не существует,
    ' либо если для текущего сотрудника поле имени файла пусто,
    ' надпись errormsg выводит соответствующее сообщение.
    Dim res As Boolean
    Dim fName As String
    Dim t As Long
    t = timeGetTime()
    path = CurrentProject.path
    On Error Resume Next
        ErrorMsg.Visible = False
        If Not IsNull(Me![Фотография]) Then
            res = IsRelative(Me![Фотография])
            fName = Me![Фотография]
            If (res = True) Then
                fName = path & "\" & fName
            End If
            Me![Картинка].Picture = fName
            Me![Картинка].Visible = True
            Me.PaintPalette = Me![Картинка].ObjectPalette
            If (Me![Картинка].Picture <> fName) Then
                Me![Картинка].Visible = False
                ErrorMsg.Caption = "Фотография не найдена"
                ErrorMsg.Visible = True
            End If
        Else
            Me![Картинка].Visible = False
            ErrorMsg.Caption = "Для добавления фотографии нажмите кнопку ""Добавить/изменить"""
            ErrorMsg.Visible = True
        End If
    MsgBox "Обработка данных длилась " & Format$((timeGetTime() - t) / 1000, "0.000") & " сек."
End Sub

Но у меня немножко другая задача стоит. Нужно получить время загрузки не каждой отдельной записи, а всех записей в форме при помощи Recordset, который, как я понимаю, позволяет перемещаться от записи к записи автоматически, а не вручную.

Дело в том, что у меня в каждой отдельной записи формы хранятся данные о каком-то сотруднике + его фотография. И таких записей 20 штук. Т.е. мне, грубо говоря, нужно узнать, сколько по времени будет занимать загрузка всех 20 фотографий в форму.

http://www.sql.ru/forum/1134985/izmerit-vremya-vyvoda-dannyh-na-forme-ispolzuya-taymer-i-recordset