, Recordset |
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
http://www.sql.ru/forum/1134985/izmerit-vremya-vyvoda-dannyh-na-forme-ispolzuya-taymer-i-recordset