Измерить время вывода данных на форме с помощью таймера и recordset

[elena111]

Доброго времени суток! Помогите, пожалуйста, реализовать следующее.

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

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

Option Compare Database
Option Explicit
Dim path As String
Private Sub ДобавитьКартинку_Click()
' Для выбора имени файла с фотографией текущего сотрудника
' используется диалоговое окно открытия файла.
' Если пользователь указывает файл, его содержимое
' отображается в элементе управления Картинка.
Dim fileName As String
Dim result As Integer
With Application.FileDialog(1)
.Title = "Выбор фотографии сотрудника"
.Filters.Add "Все файлы", "*.*"
.Filters.Add "JPEG", "*.jpg"
.Filters.Add "Рисунки", "*.bmp"
.FilterIndex = 3
.AllowMultiSelect = False
.InitialFileName = CurrentProject.path
result = .show
If (result <> 0) Then
fileName = Trim(.SelectedItems.Item(1))
fileName = Replace(fileName, CurrentProject.path & "\", "")
Me![Фотография].Visible = True
Me![Фотография].SetFocus
Me![Фотография].Text = fileName
Me![Имя].SetFocus
Me![Фотография].Visible = False
End If
End With
End Sub
Private Sub УдалитьКартинку_Click()
' Очищает строку имени файла для записи сотрудника.
Me![Фотография] = ""
' Скрывает элемент управления с фотографией.
Me![Картинка].Visible = False
ErrorMsg.Visible = True
End Sub
Private Sub Фотография_AfterUpdate()
' Отображает выбранную фотографию сотрудника.
On Error Resume Next
showErrorMessage
Me![Картинка].Visible = True
If (IsRelative(Me!Фотография) = True) Then
Me![Картинка].Picture = path & Me![Фотография]
Else
Me![Картинка].Picture = Me![Фотография]
End If
End Sub
Private Sub Form_Current()
' Если для записи текущего сотрудника имеется фотография,
' она отображается в форме. Если указанный файл не существует,
' либо если для текущего сотрудника поле имени файла пусто,
' надпись errormsg выводит соответствующее сообщение.
Dim res As Boolean
Dim fName As String
Dim startTime As Date
Dim i As Long
startTime = Now
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
For i = 1 To 30000000: Next
MsgBox "Обработка данных длилась " & (Now - startTime) * 1000000 & " мкс", vbInformation
End Sub
Sub showErrorMessage()
' Выводит сообщение errormsg, если файл фотографии недоступен.
If Not IsNull(Me![Фотография]) Then
ErrorMsg.Visible = False
Else
ErrorMsg.Visible = True
End If
End Sub
Function IsRelative(fName As String) As Boolean
' Возвращает значение false, если имя файла включает имя диска.
IsRelative = (InStr(1, fName, ":") = 0) And (InStr(1, fName, "\\") = 0)
End Function